Switch to butcher-1.3, Improve help layout, fixes #103

pull/121/head
Lennart Spitzner 2018-02-13 20:05:48 +01:00
parent 70404a81f3
commit 8430b74b1a
2 changed files with 2 additions and 2 deletions

View File

@ -94,7 +94,7 @@ library {
, pretty >=1.1.3.3 && <1.2
, bytestring >=0.10.8.1 && <0.11
, directory >=1.2.6.2 && <1.4
, butcher >=1.2 && <1.3
, butcher >=1.3 && <1.4
, yaml >=0.8.18 && <0.9
, aeson >=1.0.1.0 && <1.3
, extra >=1.4.10 && <1.7

View File

@ -161,7 +161,7 @@ mainCmdParser helpDesc = do
putStrLn $ "There is NO WARRANTY, to the extent permitted by law."
System.Exit.exitSuccess
when printHelp $ do
liftIO $ print $ ppHelpShallow helpDesc
liftIO $ putStrLn $ PP.renderStyle PP.style { PP.ribbonsPerLine = 1.0 } $ ppHelpShallow helpDesc
System.Exit.exitSuccess
let inputPaths = if null inputParams then [Nothing] else map Just inputParams