Improve usage pretty-printing a bit more

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
+        params = filter
-                          PartMany{} -> False
+          ( \case
-                          _          -> True
+            PartMany{} -> False
-                        )
+            _          -> True
-                        ps
+          )
-    in  PP.sep [PP.brackets (PP.fsep $ rec <$> flags), PP.fsep (rec <$> params)]
+          ps
+    in  PP.sep
+          [(PP.fsep $ PP.brackets . rec <$> flags), PP.fsep (rec <$> params)]
+
  where
   rec = ppPartDescUsage