From bf381cba7ac7fd77c2a07447180ec749bc123a5f Mon Sep 17 00:00:00 2001
From: Rhiannon Morris <rhi@rhiannon.website>
Date: Fri, 4 Jun 2021 04:07:05 +0200
Subject: [PATCH] add default warning for nsfw stuff

---
 make-pages/SinglePage.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/make-pages/SinglePage.hs b/make-pages/SinglePage.hs
index dc8d4d2..9ff5a6d 100644
--- a/make-pages/SinglePage.hs
+++ b/make-pages/SinglePage.hs
@@ -68,7 +68,12 @@ make' root prefix nsfw dataDir dir info@(Info {date, title, artist, bg}) = do
         </figcaption>
       |]
 
-  let warning' = ifJust (#warning image0) makeWarning
+  let defWarning = "oops i forgot to put one, sorry!<br>\
+                   \if you can let me know i'd appreciate it" :: Text
+  let warning'
+        | Just w <- #warning image0 = makeWarning w
+        | #nsfw image0              = makeWarning defWarning
+        | otherwise                 = mempty
   let warningT = makeWarning [b|.|]
 
   let bgStyle = ifJust bg \col -> [b|@0