use labels for fields

make-pages/SinglePage.hs

@@ -1,5 +1,6 @@
 module SinglePage (make) where
 
+import Records ()
 import Info hiding (Text)
 import BuildVar
 
@@ -57,11 +58,13 @@ make' nsfw (Info {date, title, tags, nsfwTags,
     </footer>
   |]
   where
-    titleTag = ifJust title \t -> [b|<title>$*t</title>|]
+    titleTag    = ifJust title \t -> [b|<title>$*t</title>|]
     titleHeader = ifJust title \t -> [b|<h1>$*t</h1>|]
+
     formattedDate = formatDate date
+
     buttonBar = makeButtonBar (fromMaybe path0 title) nsfw images
-    path0 = let Image {path} = head images in path
+    path0     = #path $ head images
 
     descSection = ifJust description makeDesc
     tagsList    = makeTags nsfw tags nsfwTags
@@ -96,9 +99,8 @@ makeButtonBar title nsfw allImages =
       |]
  where
   images | nsfw      = allImages
-         | otherwise = filter (\Image {nsfw} -> not nsfw) allImages
-  iimages = zip [0..] images
-  alts = map (uncurry altButton) iimages
+         | otherwise = filter #sfw allImages
+  alts = map (uncurry altButton) $ zip [0..] images
 
 altButton :: Int -> Image -> Builder
 altButton i (Image {label, path, nsfw}) = [b|@6
@@ -145,8 +147,7 @@ extLinks nsfw allLinks =
     </div>
   |]
  where
-  links | nsfw      = allLinks
-        | otherwise = filter (\Link {nsfw} -> not nsfw) allLinks
+  links    = if nsfw then allLinks else filter #sfw allLinks
   linkList = map extLink links
 
 extLink :: Link -> Builder