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> </figcaption>
|] |]
let defWarning = "oops i forgot to put one, sorry!<br>\ let defWarning = [b|
\if you can let me know i'd appreciate it" :: Text i forgot to add a cw, sorry! <br>
if you can let me know i'd appreciate it
|]
let warning' let warning'
| Just w <- #warning image0 = makeWarning w | Just w <- #warning image0 = makeWarning w
| #nsfw image0 = makeWarning defWarning | #nsfw image0 = makeWarning defWarning