add title to index.yaml
This commit is contained in:
parent
eecb750059
commit
980d790874
2 changed files with 7 additions and 5 deletions
|
@ -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" .!= ""
|
||||
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue