@@ -99,7 +99,7 @@ instance Arbitrary T.Text where
99 arbitrary = T.pack `fmap` arbitrary
99 arbitrary = T.pack `fmap` arbitrary
101instance Arbitrary TL.Text where
101instance Arbitrary TL.Text where
102− arbitrary = TL.pack `fmap` arbitrary
102+ arbitrary = (TL.fromChunks . map notEmpty) `fmap` arbitrary
104newtype NotEmpty a = NotEmpty { notEmpty :: a }
104newtype NotEmpty a = NotEmpty { notEmpty :: a }
105 deriving (Eq, Ord)
105 deriving (Eq, Ord)