missed a printVerbose

This commit is contained in:
Rhiannon Morris 2020-07-13 08:30:25 +02:00
parent 7c6102ac63
commit aff6f513e9

View file

@ -71,9 +71,9 @@ main = do
main2 opts main2 opts
main2 :: Options -> IO () main2 :: Options -> IO ()
main2 (Options {mode = SinglePage {file, includeNsfw, output}}) = do main2 opts@(Options {mode = SinglePage {file, includeNsfw, output}}) = do
info <- readYAML file info <- readYAML file
print info printVerbose opts info
let page = make includeNsfw info let page = make includeNsfw info
case output of case output of
Nothing -> Text.putStr page Nothing -> Text.putStr page