Update prettyprinter/test/Testsuite/Main.hs

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