diff --git a/make-pages/Main.hs b/make-pages/Main.hs
index 2ebf4e3..05e7b07 100644
--- a/make-pages/Main.hs
+++ b/make-pages/Main.hs
@@ -71,9 +71,9 @@ main = do
   main2 opts
 
 main2 :: Options -> IO ()
-main2 (Options {mode = SinglePage {file, includeNsfw, output}}) = do
+main2 opts@(Options {mode = SinglePage {file, includeNsfw, output}}) = do
   info <- readYAML file
-  print info
+  printVerbose opts info
   let page = make includeNsfw info
   case output of
     Nothing  -> Text.putStr page