From 9433991ae6bbcb976abd14766517beb2f76f1d0d Mon Sep 17 00:00:00 2001
From: Lennart Spitzner <hexagoxel@hexagoxel.de>
Date: Thu, 10 Aug 2017 17:56:41 +0200
Subject: [PATCH] Improve usage pretty-printing a bit more

---
 src/UI/Butcher/Monadic/Pretty.hs | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/src/UI/Butcher/Monadic/Pretty.hs b/src/UI/Butcher/Monadic/Pretty.hs
index 60db7fa..e2d941a 100644
--- 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