From 87975bb1db5a6ad99135a44f69729b2bba0b10fa Mon Sep 17 00:00:00 2001
From: rhiannon morris <rhi@rhiannon.website>
Date: Mon, 21 Oct 2024 14:39:29 +0200
Subject: [PATCH] fix link embeds

---
 make-pages/SinglePage.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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|
             <meta property=og:image  content="$url/$path">
             <meta name=twitter:card  content=summary_large_image>
             <meta name=twitter:image content="$url/$path">
           |]
-        Just (PThumb path) -> [b|
+        Just (PThumb (thumbFile -> path)) -> [b|
             <meta property=og:image content="$url/$path">
             <meta name=twitter:card content=summary>
           |]