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 |] - let warning' = ifJust (#warning image0) makeWarning + let defWarning = "oops i forgot to put one, sorry!
\ + \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