Use Int for char codes

Author: garyb

README.md

@@ -24,15 +24,15 @@ Returns the string of length `1` containing only the given character.
 #### `toCharCode`
 
 ``` purescript
-toCharCode :: Char -> Number
+toCharCode :: Char -> Int
 ```
 
 Returns the numeric Unicode value of the character.
 
 #### `fromCharCode`
 
 ``` purescript
-fromCharCode :: Number -> Char
+fromCharCode :: Int -> Char
 ```
 
 Constructs a character from the given Unicode numeric value.

bower.json

@@ -18,6 +18,7 @@
     "package.json"
   ],
   "dependencies": {
-    "purescript-maybe": "~0.2.1"
+    "purescript-maybe": "~0.2.1",
+    "purescript-integers": "~0.1.0"
   }
 }

src/Data/Char/Char.purs

@@ -6,6 +6,8 @@ module Data.Char
   , toCharCode
   ) where
 
+import Data.Int (Int(), fromNumber)
+
 --| A unicode character.
 newtype Char = Char String
 
@@ -19,29 +21,28 @@ foreign import toCharCode
   function toCharCode(c) {
     return c.charCodeAt(0);
   }
-  """ :: Char -> Number
+  """ :: Char -> Int
 
 -- | Constructs a character from the given Unicode numeric value.
 foreign import fromCharCode
   """
   function fromCharCode(c) {
     return String.fromCharCode(c);
   }
-  """ :: Number -> Char
+  """ :: Int -> Char
 
 -- | Characters can be compared for equality with `==` and `/=`.
 instance eqChar :: Eq Char where
   (==) (Char a) (Char b) = a == b
-
   (/=) a b = not (a == b)
 
 -- | Characters can be compared with `compare`, `>`, `>=`, `<` and `<=`.
 instance ordChar :: Ord Char where
   compare (Char a) (Char b) = a `compare` b
 
 instance boundedChar :: Bounded Char where
-  top = fromCharCode 0
-  bottom = fromCharCode 65535
+  top = fromCharCode zero
+  bottom = fromCharCode (fromNumber 65535)
 
 -- | Characters can be rendered as a string with `show`.
 instance showChar :: Show Char where