skip nsfw stuff in non-nsfw singlepages

make-pages/Main.hs

@@ -49,12 +49,14 @@ main :: IO ()
 main = main2 =<< Opt.execParser optionsParser
 
 main2 :: Options -> IO ()
-main2 (SinglePage {file, includeNsfw, output}) = do
+main2 s@(SinglePage {file, includeNsfw, output}) = do
+  print s
   txt <- ByteString.readFile file
   let Right info = YAML.decode1 txt
-  let page = make info
+  let page = make includeNsfw info
   case output of
     Nothing  -> Text.putStr page
     Just out -> Text.writeFile out page
-main2 (GalleryPage {}) = do
+main2 g@(GalleryPage {}) = do
+  print g
   error "surprise! this doesn't exist yet"