fix ranges

Author: tonymorris

src/JavaCharacter.scala

@@ -19,7 +19,7 @@ object JavaCharacter {
  }).mkString("\n, ") + "\n]"
 
  def main(args: Array[String]) { 
- val l = (0 to 200000).toList
+ val l = (0 to 2000000).toList
  val m = classOf[java.lang.Character].getMethod(args(0), classOf[Int])
  val r = letterGroupsToHaskell[Int](x => m.invoke(null, x.asInstanceOf[java.lang.Integer]).asInstanceOf[Boolean], l)
  println(r)

src/Language/Java/Character/IsSpaceChar.hs

@@ -56,6 +56,14 @@ isSpaceCharSet ::
  Set a
 isSpaceCharSet =
  let r = [
- [65536..200000]
+ [32]
+ , [160]
+ , [5760]
+ , [6158]
+ , [8192..8203]
+ , [8232..8233]
+ , [8239]
+ , [8287]
+ , [12288]
  ]
  in S.fromList . concat $ r

src/Language/Java/Character/IsValidCodePoint.hs

@@ -56,6 +56,6 @@ isValidCodePointSet ::
  Set a
 isValidCodePointSet =
  let r = [
- [0..200000]
+ [0..1114111]
  ]
  in S.fromList . concat $ r