Improve usage pretty-printing a bit more

2017-08-10 17:56:41 +02:00 · 2017-08-10 17:56:41 +02:00 · 9433991ae6
parent 0be78a3aab
commit 9433991ae6
1 changed files with 9 additions and 6 deletions
--- a/src/UI/Butcher/Monadic/Pretty.hs
+++ b/src/UI/Butcher/Monadic/Pretty.hs
@ -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