From 1812bd6415f0180857cc4b1c77568a18d717a15c Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Thu, 10 Mar 2016 15:38:19 -0500 Subject: [PATCH] Construct arbitrary closed lines. --- test/AlignmentSpec.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/AlignmentSpec.hs b/test/AlignmentSpec.hs index 41da77d8f..493925f4b 100644 --- a/test/AlignmentSpec.hs +++ b/test/AlignmentSpec.hs @@ -29,7 +29,7 @@ instance Arbitrary a => Arbitrary (Both a) where arbitrary = pure (curry Both) <*> arbitrary <*> arbitrary instance Arbitrary a => Arbitrary (Line a) where - arbitrary = Line <$> arbitrary + arbitrary = oneof [ Line <$> arbitrary, Closed <$> arbitrary ] instance Arbitrary a => Arbitrary (Patch a) where arbitrary = oneof [