hexagoxel
/
butcher
1
0
Fork 0
Code Issues 2 Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/UI/Butcher/Monadic/Pretty.hs
View File

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