Commits

Bryan O'Sullivan  committed 0d793b6

Fix silly arbitrary text generation bug.

  • Participants
  • Parent commits cc6c3d2

Comments (0)

Files changed (1)

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