Merge pull request #11 from jdegoes/ready/char-instances

added essential instances for Char; fully backward compatible
purescript · Oct 16, 2014 · 7f7bd7b · 7f7bd7b
2 parents 976d330 + 2a044ec
commit 7f7bd7b
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 0 deletions.
diff --git a/README.md b/README.md
@@ -7,6 +7,15 @@
     newtype Char
 
 
+### Type Class Instances
+
+    instance eqChar :: Eq Char
+
+    instance ordChar :: Ord Char
+
+    instance showChar :: Show Char
+
+
 ### Values
 
     charString :: Char -> String

diff --git a/src/Data/Char/Char.purs b/src/Data/Char/Char.purs
@@ -20,3 +20,13 @@ module Data.Char
     \   return String.fromCharCode(c);\
     \}" :: Number -> Char
 
+  instance eqChar :: Eq Char where
+    (==) (Char a) (Char b) = a == b
+
+    (/=) a b = not (a == b)
+
+  instance ordChar :: Ord Char where
+    compare (Char a) (Char b) = a `compare` b
+
+  instance showChar :: Show Char where
+    show (Char s) = "Char " ++ show s