diff options
| -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))) |