From df8496a839bf6dd929ffd4a93929dc4bbd1c6f9e Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Fri, 11 Mar 2016 09:12:12 -0500 Subject: [PATCH] Add an Arbitrary instance over Separated. --- test/Data/Adjoined/Spec.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/test/Data/Adjoined/Spec.hs b/test/Data/Adjoined/Spec.hs index be4780450..e0d7b2876 100644 --- a/test/Data/Adjoined/Spec.hs +++ b/test/Data/Adjoined/Spec.hs @@ -9,3 +9,6 @@ instance Arbitrary a => Arbitrary (Adjoined a) where newtype Separated a = Separated { unSeparated :: a } deriving (Eq, Functor, Show) + +instance Arbitrary a => Arbitrary (Separated a) where + arbitrary = Separated <$> arbitrary