From 1268f07c8adbfcbf7fa31a8977bb299eb3b9847a Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Fri, 11 Mar 2016 09:06:29 -0500 Subject: [PATCH] Add an Arbitrary instance over Adjoined. --- test/Data/Adjoined/Spec.hs | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/test/Data/Adjoined/Spec.hs b/test/Data/Adjoined/Spec.hs index 58c0f558d..7433e0721 100644 --- a/test/Data/Adjoined/Spec.hs +++ b/test/Data/Adjoined/Spec.hs @@ -1 +1,8 @@ module Data.Adjoined.Spec where + +import Data.Adjoined +import Test.QuickCheck + + +instance Arbitrary a => Arbitrary (Adjoined a) where + arbitrary = fromList <$> arbitrary