Make the lazy Arbitrary instance chunkier
--HG--
extra : convert_revision : b91e823dc3136406e88bb4e509e54b934b56a0a3
commit84f05d0e94f29c2d9fe596359387ec300704a198
authorBryan O'Sullivan <bos@serpentine.com>
dateSun 29 Aug 2010, 16:49 (16 years ago)
parente8ade89
tests/QuickCheckUtils.hs+1−1
@@ -99,7 +99,7 @@ instance Arbitrary T.Text where
9999 arbitrary = T.pack `fmap` arbitrary
100100
101101instance Arbitrary TL.Text where
102− arbitrary = TL.pack `fmap` arbitrary
102+ arbitrary = (TL.fromChunks . map notEmpty) `fmap` arbitrary
103103
104104newtype NotEmpty a = NotEmpty { notEmpty :: a }
105105 deriving (Eq, Ord)