From ec330bc3cb82f5353bbf19a2a5495ecdf5519189 Mon Sep 17 00:00:00 2001 From: Jannis Date: Thu, 23 Jan 2020 22:32:50 +0100 Subject: [PATCH] Update prettyprinter/test/Testsuite/Main.hs Co-Authored-By: Simon Jakobi --- prettyprinter/test/Testsuite/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/prettyprinter/test/Testsuite/Main.hs b/prettyprinter/test/Testsuite/Main.hs index afad90cf..11ebfc9b 100644 --- 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