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

require $& for whitespace before or after a builder

Browse source
This commit is contained in:
rhiannon morris 2024-08-21 07:40:28 +02:00
parent d18c19a2e6
commit 035aa78920
4 changed files with 16 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

6
make-pages/SinglePage.hs
View file

@ -302,11 +302,11 @@ altButton img i = [b|
|]
where
Image {label, nsfw, warning, download} = img
nsfwClass = if nsfw then [b| class=nsfw|] else ""
nsfwLabelClass = if nsfw then [b| class=nsfw-label|] else ""
nsfwClass = if nsfw then [b|$& class=nsfw|] else ""
nsfwLabelClass = if nsfw then [b|$& class=nsfw-label|] else ""
path' = pageFile img
link = fromMaybe (bigFile img) download
warning' = ifJust warning \(escAttr -> w) -> [b| data-warning="$w"|]
warning' = ifJust warning \(escAttr -> w) -> [b|$& data-warning="$w"|]
makeTags :: FilePath -> [Strict.Text] -> Builder
makeTags undir tags =