Fix usage pretty-printing block output

2017-08-10 17:49:31 +02:00 · 2017-08-10 17:49:31 +02:00 · 0be78a3aab
parent cd983676cb
commit 0be78a3aab
1 changed files with 1 additions and 1 deletions
--- a/src/UI/Butcher/Monadic/Pretty.hs
+++ b/src/UI/Butcher/Monadic/Pretty.hs
@ -213,7 +213,7 @@ ppPartDescUsage = \case
                          _          -> True
                        )
                        ps
-    in  PP.brackets (PP.fsep $ rec <$> flags) <+> PP.fsep (rec <$> params)
+    in  PP.sep [PP.brackets (PP.fsep $ rec <$> flags), PP.fsep (rec <$> params)]
 where
  rec = ppPartDescUsage