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

put artist on rss feed

Browse source
This commit is contained in:
Rhiannon Morris 2020-07-25 13:58:16 +02:00
parent c1a54a89c5
commit 328ce7bf11
3 changed files with 22 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

3
make-pages/SinglePage.hs
View file

@ -117,9 +117,6 @@ makeDesc nsfw desc nsfwDesc = [b|@4
desc' = fromMaybe "" desc
nsfwDesc' = fromMaybe "" $ guard nsfw *> nsfwDesc
ifJust :: Monoid b => Maybe a -> (a -> b) -> b
ifJust x f = maybe mempty f x
formatDate :: Day -> Builder
formatDate d =
let str = formatTime defaultTimeLocale "%e %#B %Y" d in [b|$@str|]