mirror of
https://github.com/github/semantic.git
synced 2024-12-24 23:42:31 +03:00
Select newlines and carriage returns frequently.
This commit is contained in:
parent
d721aadf12
commit
99df4b384e
@ -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])
|
||||
|
Loading…
Reference in New Issue
Block a user