From ff906f8b5eaeea8b6af5fd6132d10f2352dabea6 Mon Sep 17 00:00:00 2001 From: rhiannon morris Date: Mon, 5 Aug 2024 19:20:01 +0200 Subject: [PATCH] remove "default" cw --- make-pages/SinglePage.hs | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) diff --git a/make-pages/SinglePage.hs b/make-pages/SinglePage.hs index ea34943..eb99eca 100644 --- a/make-pages/SinglePage.hs +++ b/make-pages/SinglePage.hs @@ -72,14 +72,7 @@ make' root siteName prefix nsfw _dataDir dir |] - let defWarning = [b| - i forgot to add a cw, sorry!
- 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