remove "default" cw
This commit is contained in:
parent
9c3182454d
commit
ff906f8b5e
1 changed files with 1 additions and 8 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue