missed a printVerbose
This commit is contained in:
parent
7c6102ac63
commit
aff6f513e9
1 changed files with 2 additions and 2 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue