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>
|
||||
|]
|
||||
|
||||
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
|
||||
|
|
Loading…
Reference in a new issue