Totally not a trivial mistake

quchen · Jan 23, 2020 · 714557d · 714557d
1 parent 99553dc
commit 714557d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/prettyprinter/src/Data/Text/Prettyprint/Doc/Internal.hs b/prettyprinter/src/Data/Text/Prettyprint/Doc/Internal.hs
@@ -516,8 +516,8 @@ hardline = Line
 
 group :: Doc ann -> Doc ann
 group = \doc -> case doc of
-    FlatAlt x y     -> case changesOnFlattening x of
-        HasLine  -> y
+    FlatAlt x y     -> case changesOnFlattening y of
+        HasLine  -> x
         NoChange -> Union y x
         Flat y'  -> Union y' x