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

use FilePath for file paths

Browse source
This commit is contained in:
Rhiannon Morris 2020-07-15 11:35:32 +02:00
parent d342fc6971
commit 40ffd4f22c
3 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
make-pages/SinglePage.hs
View file

@ -43,7 +43,7 @@ make' nsfw (Info {date, title, artist, tags, nsfwTags,
</header>
<main>
<img id=it src="$*path0">
<img id=it src="$@path0">
$descSection
@ -66,7 +66,7 @@ make' nsfw (Info {date, title, artist, tags, nsfwTags,
formattedDate = formatDate date
buttonBar = makeButtonBar (fromMaybe path0 title) nsfw images
buttonBar = makeButtonBar (fromMaybe (Strict.pack path0) title) nsfw images
path0 = #path $ head images
descSection = ifJust description makeDesc
@ -117,7 +117,7 @@ altButton :: Int -> Image -> Builder
altButton i (Image {label, path, nsfw}) = [b|@6
<li$nsfwClass>
<input type=radio$checked id="$idLabel" name=variant
autocomplete=off value="$*path">
autocomplete=off value="$@path">
<label for="$idLabel">$*label</label>
|]
where