Improve usage pretty-printing a bit more

pull/5/head
Lennart Spitzner 2017-08-10 17:56:41 +02:00
parent 0be78a3aab
commit 9433991ae6
1 changed files with 9 additions and 6 deletions

View File

@ -208,12 +208,15 @@ ppPartDescUsage = \case
PartWithHelp _ p -> rec p
PartReorder ps ->
let flags = [ d | PartMany d <- ps ]
params = filter ( \case
PartMany{} -> False
_ -> True
)
ps
in PP.sep [PP.brackets (PP.fsep $ rec <$> flags), PP.fsep (rec <$> params)]
params = filter
( \case
PartMany{} -> False
_ -> True
)
ps
in PP.sep
[(PP.fsep $ PP.brackets . rec <$> flags), PP.fsep (rec <$> params)]
where
rec = ppPartDescUsage