diff --git a/make-pages/SinglePage.hs b/make-pages/SinglePage.hs index 68e85c6..07435c6 100644 --- a/make-pages/SinglePage.hs +++ b/make-pages/SinglePage.hs @@ -106,12 +106,12 @@ make' root siteName prefix nsfw _dataDir dir let nsfwDialog = NsfwWarning.dialog nsfw' let imageMeta = case previewImage info of - Just (PFull (Image {path})) -> [b| + Just (PFull (pageFile -> path)) -> [b| |] - Just (PThumb path) -> [b| + Just (PThumb (thumbFile -> path)) -> [b| |]