diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-07-12 16:17:22 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-07-12 16:17:22 +0100 |
| commit | 8d689eb9c7c087726f46e5c906edf5e9de84e41f (patch) | |
| tree | 2ccd51e3ba308eff649707a4c9ea1beb7a43fb91 | |
| parent | a52c7972bb933a84c4b51f46fff25328269e3864 (diff) | |
| download | bffe-8d689eb9c7c087726f46e5c906edf5e9de84e41f.tar bffe-8d689eb9c7c087726f46e5c906edf5e9de84e41f.tar.gz | |
Don't crash if the homepage template doesn't exist
| -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 |