make default cw less cryptic

2022-12-26 20:09:25 +01:00 · 2022-12-26 20:09:25 +01:00 · 1e7a58359d
parent 3c04976d1a
commit 1e7a58359d
1 changed files with 4 additions and 2 deletions
--- a/make-pages/SinglePage.hs
+++ b/make-pages/SinglePage.hs
@ -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