remove "default" cw

2024-08-05 19:20:01 +02:00 · 2024-08-05 19:20:01 +02:00 · ff906f8b5e
parent 9c3182454d
commit ff906f8b5e
1 changed files with 1 additions and 8 deletions
--- a/make-pages/SinglePage.hs
+++ b/make-pages/SinglePage.hs
@ -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