From 9b9f955e651e090c3f9cc1d2c3e0d6b780368e0f Mon Sep 17 00:00:00 2001 From: Rhiannon Morris Date: Sat, 18 Jul 2020 11:27:27 +0200 Subject: [PATCH] add more image related fields to info --- make-pages/Info.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/make-pages/Info.hs b/make-pages/Info.hs index ad615f3..7c00e50 100644 --- a/make-pages/Info.hs +++ b/make-pages/Info.hs @@ -67,8 +67,12 @@ instance HasField "sfw" Link Bool where getField = not . #nsfw instance HasField "sfwImages" Info [Image] where getField = filter #sfw . #images +instance HasField "nsfwImages" Info [Image] where + getField = filter #nsfw . #images instance HasField "allNsfw" Info Bool where getField = null . #sfwImages +instance HasField "allSfw" Info Bool where getField = null . #nsfwImages instance HasField "anySfw" Info Bool where getField = not . #allNsfw +instance HasField "anyNsfw" Info Bool where getField = not . #allSfw instance HasField "thumb" Info (Maybe FilePath) where getField (Info {thumb', images}) = thumb' <|> #path <$> find #sfw images