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