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

fix formatting for multiple updates

Browse source
This commit is contained in:
rhiannon morris 2024-10-21 14:39:53 +02:00
parent 6f3e3a08a3
commit 7671c1837a
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
make-pages/SinglePage.hs
View file

@ -17,6 +17,7 @@ import qualified Data.HashSet as Set
import Data.Traversable import Data.Traversable
import Data.Semigroup import Data.Semigroup
import Data.List.NonEmpty (toList) import Data.List.NonEmpty (toList)
import Data.Char (isSpace)
-- | e.g. only nsfw images are present for a non-nsfw page -- | e.g. only nsfw images are present for a non-nsfw page
@ -366,4 +367,8 @@ makeUpdate date ups = [b|
<dd>$desc <dd>$desc
|] where |] where
date' = formatSlash date date' = formatSlash date
desc = mconcat $ map fromText $ intersperse "; " $ toList $ fmap (.desc) ups desc = mconcat $
intersperse "; " $
map (fromText . Strict.dropWhileEnd isSpace) $
toList $
fmap (.desc) ups