use duplicate fields

make-pages/Info.hs

@@ -20,28 +20,28 @@ import Text.Read (readMaybe)
 
 data Info =
   Info {
-    infoDate   :: !Day,
+    date        :: !Day,
-    infoTitle  :: !Text,
+    title       :: !Text,
-    infoTags   :: !(Vector Text),
+    tags        :: !(Vector Text),
-    infoDesc   :: !Text,
+    description :: !Text,
-    infoImages :: !(Vector Image),
+    images      :: !(Vector Image),
-    infoThumb  :: !Text,
+    thumb       :: !Text,
-    infoLinks  :: !(Vector Link)
+    links       :: !(Vector Link)
   }
   deriving (Eq, Show)
 
 data Image =
   Image {
-    imageLabel :: !Text,
+    label :: !Text,
-    imagePath  :: !Text,
+    path  :: !Text,
-    imageNsfw  :: !Bool
+    nsfw  :: !Bool
   }
   deriving (Eq, Show)
 
 data Link =
   Link {
-    linkTitle :: !Text,
+    title :: !Text,
-    linkUrl   :: !Text
+    url   :: !Text
   }
   deriving (Eq, Show)
 

make-pages/make-pages.cabal

@@ -13,6 +13,7 @@ executable make-pages
   default-language: Haskell2010
   default-extensions:
     BlockArguments,
+    DuplicateRecordFields,
     LambdaCase,
     OverloadedStrings,
     RecordWildCards