From 1e7a58359d1ea9c1ed5b8c650ffe088957fafade Mon Sep 17 00:00:00 2001 From: rhiannon morris Date: Mon, 26 Dec 2022 20:09:25 +0100 Subject: [PATCH] make default cw less cryptic --- make-pages/SinglePage.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/make-pages/SinglePage.hs b/make-pages/SinglePage.hs index 5a1e353..42c7dd4 100644 --- a/make-pages/SinglePage.hs +++ b/make-pages/SinglePage.hs @@ -71,8 +71,10 @@ make' root siteName prefix nsfw _dataDir dir |] - let defWarning = "oops i forgot to put one, sorry!
\ - \if you can let me know i'd appreciate it" :: Text + let defWarning = [b| + i forgot to add a cw, sorry!
+ if you can let me know i'd appreciate it + |] let warning' | Just w <- #warning image0 = makeWarning w | #nsfw image0 = makeWarning defWarning