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