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