further reduce newlines for compact output (cdepillabout#84)

juhp · May 31, 2022 · 86c4745 · 86c4745
1 parent 380829e
commit 86c4745
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/Text/Pretty/Simple/Internal/Printer.hs b/src/Text/Pretty/Simple/Internal/Printer.hs
@@ -255,7 +255,10 @@ prettyExpr opts = (if outputOptionsCompact opts then group else id) . \case
             spaceIfNeeded = \case
               Other (' ' : _) : _ -> mempty
               _ -> space
-    lineAndCommaSep x y = x <> line' <> annotate Comma "," <> y
+    lineAndCommaSep x y =
+      if outputOptionsCompact
+      then x <> annotate Comma "," <> y
+      else x <> line' <> annotate Comma "," <> y
 
 -- | Determine whether this expression should be displayed on a single line.
 isSimple :: Expr -> Bool