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

ui: Fix load-config.

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