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

add default warning for nsfw stuff

This commit is contained in:
Rhiannon Morris 2021-06-04 04:07:05 +02:00
parent 3bbe9d6109
commit bf381cba7a
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

@ -68,7 +68,12 @@ make' root prefix nsfw dataDir dir info@(Info {date, title, artist, bg}) = do
</figcaption> </figcaption>
|] |]
let warning' = ifJust (#warning image0) makeWarning let defWarning = "oops i forgot to put one, sorry!<br>\
\if you can let me know i'd appreciate it" :: Text
let warning'
| Just w <- #warning image0 = makeWarning w
| #nsfw image0 = makeWarning defWarning
| otherwise = mempty
let warningT = makeWarning [b|.|] let warningT = makeWarning [b|.|]
let bgStyle = ifJust bg \col -> [b|@0 let bgStyle = ifJust bg \col -> [b|@0