Source

text / tests / QuickCheckUtils.hs

Diff from to

File tests/QuickCheckUtils.hs

     coarbitrary c = variant (fromEnum c `rem` 4)
 
 instance Arbitrary Char where
-    arbitrary     = oneof [choose ('\0','\55295'), choose ('\57334','\1114111')]
+    arbitrary     = oneof [choose ('\0','\55295'), choose ('\57344','\1114111')]
     coarbitrary c = variant (fromEnum c `rem` 4)
 
 instance Arbitrary T.Text where