Update prettyprinter/test/Testsuite/Main.hs

Co-Authored-By: Simon Jakobi <[email protected]>
quchen · Jan 23, 2020 · 8811af2 · 8811af2
1 parent 1f89ce8
commit 8811af2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/prettyprinter/test/Testsuite/Main.hs b/prettyprinter/test/Testsuite/Main.hs
@@ -121,7 +121,7 @@ groupLayoutEqualsSimpleGroupLayout = forAllShow (arbitrary :: Gen (Doc Int)) (sh
             groupedSimple = simpleGroup doc
             groupedLayedOut = layout layouter grouped
             groupedSimpleLayedOut = layout layouter groupedSimple
-        in counterexample ("Grouped: " ++ (show . diag) (grouped))
+        in counterexample ("Grouped: " ++ (show . diag) grouped)
             (counterexample ("Grouped (Simple) " ++ (show . diag) (groupedSimple))
                 (groupedLayedOut === groupedSimpleLayedOut))))