allow single image (non-list) for images field

make-pages/Info.hs

@@ -95,7 +95,7 @@ instance FromYAML Info where
          <*> m .:? "tags" .!= []
          <*> m .:? "nsfw-tags" .!= []
          <*> m .:? "description"
-         <*> m .:  "images"
+         <*> (m .:  "images" >>= imageList)
          <*> m .:? "background"
          <*> m .:? "thumb"
          <*> m .:? "links" .!= []
@@ -106,18 +106,26 @@ instance FromYAML Artist where
     withUrl  = YAML.withMap "full info" \m ->
       Artist <$> m .: "name" <*> m .:? "url"
 
+imageList :: YAML.Node YAML.Pos -> YAML.Parser [Image]
+imageList y = pure <$> unlabelledImage y <|> parseYAML y
+
 instance FromYAML Image where
-  parseYAML y = do
+  parseYAML y = unlabelledImage y <|> labelled y where
-    Pair label rest <- parseYAML y
+    labelled y' = do
-    asStr label rest <|> asObj label rest
+      Pair label rest <- parseYAML y'
+      i <- unlabelledImage rest
+      pure $ i {label}
+
+unlabelledImage :: YAML.Node YAML.Pos -> YAML.Parser Image
+unlabelledImage y = asStr y <|> asObj y
  where
-    asStr label = YAML.withStr "path" \(Text.unpack -> path) ->
+  asStr = YAML.withStr "path" \(Text.unpack -> path) ->
-      pure $ Image {label, path, nsfw = False, warning = Nothing}
+    pure $ Image {label = "", path, nsfw = False, warning = Nothing}
-    asObj label = YAML.withMap "image info" \m -> do
+  asObj = YAML.withMap "image info" \m -> do
     path    <- m .:  "path"
     nsfw    <- m .:? "nsfw" .!= False
     warning <- m .:? "warning"
-      pure $ Image {label, path, nsfw, warning}
+    pure $ Image {label = "", path, nsfw, warning}
 
 instance FromYAML Link where
   parseYAML y = do