rename includeNsfw to just nsfw

make-pages/Main.hs

@@ -20,14 +20,14 @@ data Options =
 
 data ModeOptions =
     SinglePage {
-      file        :: FilePath,
-      includeNsfw :: Bool,
-      output      :: Maybe FilePath
+      file   :: FilePath,
+      nsfw   :: Bool,
+      output :: Maybe FilePath
     }
   | GalleryPage {
-      files       :: [FilePath],
-      includeNsfw :: Bool,
-      output      :: Maybe FilePath
+      files  :: [FilePath],
+      nsfw   :: Bool,
+      output :: Maybe FilePath
     }
   deriving Show
 
@@ -71,10 +71,10 @@ main = do
   main2 opts
 
 main2 :: Options -> IO ()
-main2 opts@(Options {mode = SinglePage {file, includeNsfw, output}}) = do
+main2 opts@(Options {mode = SinglePage {file, nsfw, output}}) = do
   info <- readYAML file
   printVerbose opts info
-  let page = make includeNsfw info
+  let page = make nsfw info
   case output of
     Nothing  -> Text.putStr page
     Just out -> Text.writeFile out page