From 99df4b384eba6ce0b241be6804fabf6b9159cfcb Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Fri, 2 Aug 2019 14:56:50 -0400 Subject: [PATCH] Select newlines and carriage returns frequently. --- test/Generators.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/Generators.hs b/test/Generators.hs index 8eee23230..d9333a2b0 100644 --- a/test/Generators.hs +++ b/test/Generators.hs @@ -9,4 +9,4 @@ import qualified Data.Source import Data.Functor.Identity source :: (GenBase m ~ Identity, MonadGen m) => Hedgehog.Range Int -> m Data.Source.Source -source r = Data.Source.fromUTF8 <$> Gen.utf8 r Gen.unicode +source r = Data.Source.fromUTF8 <$> Gen.utf8 r (Gen.choice [pure '\r', pure '\n', Gen.unicode])