on master help sign in
Fix silly arbitrary text generation bug.

--HG-- extra : convert_revision : 01d0b714937245382c7db1c09fd664833c2da2a8

commitfc53b6c994eca22bf7514b5eca9360d30f8cf3eb authorBryan O'Sullivan <bos@serpentine.com> dateSat 23 May 2009, 01:31 (17 years ago) parent75c299b
1 file changed+1−1
tests/QuickCheckUtils.hs+1−1
tests/QuickCheckUtils.hs+1−1
@@ -37,7 +37,7 @@ instance Arbitrary Word16 where
3737 coarbitrary c = variant (fromEnum c `rem` 4)
3838
3939instance Arbitrary Char where
40− arbitrary = oneof [choose ('\0','\55295'), choose ('\57334','\1114111')]
40+ arbitrary = oneof [choose ('\0','\55295'), choose ('\57344','\1114111')]
4141 coarbitrary c = variant (fromEnum c `rem` 4)
4242
4343instance Arbitrary T.Text where