make default cw less cryptic

This commit is contained in:
rhiannon morris 2022-12-26 20:09:25 +01:00
parent 3c04976d1a
commit 1e7a58359d

View file

@ -71,8 +71,10 @@ make' root siteName prefix nsfw _dataDir dir
</figcaption>
|]
let defWarning = "oops i forgot to put one, sorry!<br>\
\if you can let me know i'd appreciate it" :: Text
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 <- #warning image0 = makeWarning w
| #nsfw image0 = makeWarning defWarning