From dbcbdbd0593c763e564a2cc6ccec0f4d74e0b09c Mon Sep 17 00:00:00 2001 From: "Jakob L. Kreuze" Date: Fri, 28 Jun 2024 19:40:20 -0400 Subject: Fix handling for no available reader in `flat-pages' --- haunt/builder/flat-pages.scm | 4 ++-- 1 file 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))) -- cgit v1.2.3