remove "default" cw

This commit is contained in:
rhiannon morris 2024-08-05 19:20:01 +02:00
parent 9c3182454d
commit ff906f8b5e

View file

@ -72,14 +72,7 @@ make' root siteName prefix nsfw _dataDir dir
</figcaption>
|]
let defWarning = [b|
i forgot to add a cw, sorry! <br>
if you can let me know i'd appreciate it
|]
let warning'
| Just w <- image0.warning = makeWarning w
| image0.nsfw = makeWarning defWarning
| otherwise = mempty
let warning' = ifJust image0.warning makeWarning
let warningT = makeWarning [b|.|]
let bgStyle = case bg of