make default cw less cryptic
This commit is contained in:
parent
3c04976d1a
commit
1e7a58359d
1 changed files with 4 additions and 2 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue