add title to index.yaml

This commit is contained in:
Rhiannon Morris 2020-07-19 12:10:27 +02:00
parent eecb750059
commit 980d790874
2 changed files with 7 additions and 5 deletions

View file

@ -198,6 +198,7 @@ instance FromYAML Whose where parseYAML = YAML.withStr "whose" readWhose
data IndexInfo =
IndexInfo {
title :: !Text,
galleries :: ![GalleryInfo],
footer :: !Text
}
@ -205,7 +206,8 @@ data IndexInfo =
instance FromYAML IndexInfo where
parseYAML = YAML.withMap "index info" \m ->
IndexInfo <$> m .:? "galleries" .!= []
IndexInfo <$> m .: "title"
<*> m .:? "galleries" .!= []
<*> m .:? "footer" .!= ""