From 1e4bce59e8801dfce3d62b8795dbd686fd138bd9 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Fri, 11 Mar 2016 10:29:03 -0500 Subject: [PATCH] Run the monoid spec over uncoalesced strings. --- test/Data/Adjoined/Spec.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/Data/Adjoined/Spec.hs b/test/Data/Adjoined/Spec.hs index 4021a114c..4b547b143 100644 --- a/test/Data/Adjoined/Spec.hs +++ b/test/Data/Adjoined/Spec.hs @@ -11,7 +11,7 @@ spec = do prop "equality is reflexive" $ \ a -> a `shouldBe` (a :: Adjoined (Uncoalesced Char)) - monoid (arbitrary :: Gen (Adjoined (Uncoalesced Char))) + monoid (arbitrary :: Gen (Adjoined (Uncoalesced String))) monoid :: (Arbitrary a, Coalescent a, Eq a, Show a) => Gen (Adjoined a) -> Spec monoid gen =