missed a printVerbose

2020-07-13 08:30:25 +02:00 · 2020-07-13 08:30:25 +02:00 · aff6f513e9
parent 7c6102ac63
commit aff6f513e9
1 changed files with 2 additions and 2 deletions
--- 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