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|
|]