update to ghc 9.2.5

make-pages/SinglePage.hs

@@ -18,7 +18,7 @@ import Data.Traversable
 
 
 -- | e.g. only nsfw images are present for a non-nsfw page
-data NoEligibleImages = NoEligibleImages {title :: !Strict.Text}
+newtype NoEligibleImages = NoEligibleImages {title :: Strict.Text}
   deriving stock Eq deriving anyclass Exception
 
 instance Show NoEligibleImages where
@@ -50,8 +50,11 @@ make' root siteName prefix nsfw _dataDir dir
   let formattedDate = formatLong date
 
   let buttonBar = makeButtonBar title $ addIds images
-  let image0@(Image {path = path0, download = download0'}) : otherImages =
-        #all images
+
+  let allImages = #all images
+  let image0@(Image {path = path0, download = download0'}) = head allImages
+  let otherImages = tail allImages
+
   let download0 = fromMaybe (bigFile path0) download0'
   let path0'    = pageFile path0
 
@@ -249,7 +252,7 @@ makeButtonBar title images =
        <ul class="buttonbar bb-choice">
          $2.elems
        </ul> |]
-    where elems = map (\(img,i) -> altButton img i) imgs
+    where elems = map (uncurry altButton) imgs
   skipAll =
     if any (isJust . #warning . fst) images then
       [b|@0