diff options
| author | Jakob L. Kreuze <zerodaysfordays@sdf.org> | 2024-06-28 19:40:20 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2024-07-09 08:09:03 -0400 |
| commit | dbcbdbd0593c763e564a2cc6ccec0f4d74e0b09c (patch) | |
| tree | 2383ef09a255e9c8cf3eb7a27c46b909b34a50ee | |
| parent | 9fb242ae2df426276e13b3a2393fb40b5a2f54b6 (diff) | |
Fix handling for no available reader in `flat-pages'
| -rw-r--r-- | haunt/builder/flat-pages.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/haunt/builder/flat-pages.scm b/haunt/builder/flat-pages.scm index 98913c0..f04ecef 100644 --- a/haunt/builder/flat-pages.scm +++ b/haunt/builder/flat-pages.scm @@ -66,6 +66,7 @@ complete HTML page that presumably wraps the page body." (string-append "." (file-extension file-name)))) (map (lambda (file-name) (match (reader-find (site-readers site) file-name) + (#f (error "no reader available for page" file-name)) (reader (let-values (((metadata body) (reader-read reader file-name))) (let* ((dir (substring (dirname file-name) @@ -75,6 +76,5 @@ complete HTML page that presumably wraps the page body." (strip-extension file-name) ".html")) (title (or (assq-ref metadata 'title) "Untitled"))) (serialized-artifact out (template site title body) - sxml->html)))) - (#f (error "no reader available for page" file-name)))) + sxml->html)))))) src-files))) |