dan
/
haunt
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ui: Fix load-config. 

* haunt/ui.scm (load-config): Use an absolute path when calling 'load'.
  Fix typo in error message.
This commit is contained in:
David Thompson 2015-04-11 17:47:33 -04:00
parent 40b8242554
commit 33d7c84e88
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
haunt/ui.scm
View File

@ -31,6 +31,7 @@
#:use-module (srfi srfi-37)
#:use-module (haunt config)
#:use-module (haunt site)
#:use-module (haunt utils)
#:export (program-name
show-version-and-exit
simple-args-fold
@ -104,11 +105,11 @@ There is NO WARRANTY, to the extent permitted by law.~%"
(define* (load-config file-name)
"Load configuration from FILE-NAME."
(if (file-exists? file-name)
(let ((obj (load file-name)))
(let ((obj (load (absolute-file-name file-name))))
(if (site? obj)
obj
(leave "configuration object must be a site, got: ~a" obj)))
(leave "configuration file found: ~a" file-name)))
(leave "configuration file not found: ~a" file-name)))
(define (run-haunt-command command . args)
(let* ((module