suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

when the config file cannot be read, report the error message too

Browse Source 
svn: r16177
This commit is contained in:
Eli Barzilay 2009-09-30 02:55:01 +00:00
parent 67df72ec1a
commit d160ead670
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/handin-server/private/config.ss
View File

@ -28,10 +28,11 @@
(unless (and filetime (equal? filetime last-filetime))
(set! last-filetime filetime)
(set! raw-config
(with-handlers ([void (lambda (_)
(with-handlers ([void (lambda (e)
(error 'get-conf
"could not read conf (~a)"
config-file))])
"could not read conf (~a): ~a"
config-file
(exn-message e)))])
(when raw-config
;; can't use log-line from logger, since it makes a cycle
(fprintf (current-error-port)