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

5
make-pages/BuilderQQ.hs
View file

@ -2,7 +2,7 @@
module BuilderQQ
(b,
Builder, toLazyText, fromText, fromString, fromChar,
textMap)
textMap, ifJust)
where
import Data.Char (isLower, isSpace, isDigit, isAlphaNum)
@ -186,3 +186,6 @@ fromChar = singleton
textMap :: (Char -> Builder) -> Text -> Builder
textMap f = Text.foldl' (\buf c -> buf <> f c) mempty
ifJust :: Monoid b => Maybe a -> (a -> b) -> b
ifJust x f = maybe mempty f x