diff options
-rw-r--r-- | bffe/server.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/bffe/server.scm b/bffe/server.scm index eafa9b5..40b3193 100644 --- a/bffe/server.scm +++ b/bffe/server.scm @@ -363,10 +363,11 @@ (get-gc-metrics-updater metrics-registry)) (define home-template-content - (call-with-input-file - (string-append - template-directory "/home.html") - get-string-all)) + (let ((filename + (string-append template-directory "/home.html"))) + (if (file-exists? filename) + (call-with-input-file filename get-string-all) + "<p>Temporary home page</p>"))) (lambda (request method-and-path-components |