From 0be78a3aabc838fb45881dca55a96a8516385169 Mon Sep 17 00:00:00 2001
From: Lennart Spitzner <hexagoxel@hexagoxel.de>
Date: Thu, 10 Aug 2017 17:49:31 +0200
Subject: [PATCH] Fix usage pretty-printing block output

---
 src/UI/Butcher/Monadic/Pretty.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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