rhi/gallery
1
0
Fork 0
Code Issues 5 Pull requests 1 Releases Wiki Activity

add gallery description

Browse source
This commit is contained in:
Rhiannon Morris 2020-07-19 18:00:39 +02:00
parent c10a3ab340
commit c2f991bc3e
2 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
make-pages/Info.hs
View file

@ -147,9 +147,10 @@ instance FromYAML Link where
data GalleryInfo =
GalleryInfo {
title :: !Text,
prefix :: !FilePath,
filters :: !GalleryFilters
title :: !Text,
description :: !Text,
prefix :: !FilePath,
filters :: !GalleryFilters
}
deriving (Eq, Show)
@ -189,6 +190,7 @@ matchFilters (GalleryFilters {nsfw, whose}) i =
instance FromYAML GalleryInfo where
parseYAML = YAML.withMap "gallery info" \m ->
GalleryInfo <$> m .: "title"
<*> m .: "description"
<*> m .: "prefix"
<*> m .:? "filters" .!= noFilters