Uppercase/lowercase on Char

Added

* `Data.Char.toUpperChar :: Char -> Char`
* `Data.Char.toLowerChar :: Char -> Char`

Removed

* `Data.Char.showChar :: Show Char`
  - collided with `showChar` defined in the prelude?

Author: LiamGoodacre

docs/Data/Char.md

@@ -26,4 +26,20 @@ fromCharCode :: Int -> Char
 
 Constructs a character from the given Unicode numeric value.
 
+#### `toLowerChar`
+
+``` purescript
+toLowerChar :: Char -> Char
+```
+
+Converts a character to lowercase.
+
+#### `toUpperChar`
+
+``` purescript
+toUpperChar :: Char -> Char
+```
+
+Converts a character to uppercase.
+
 

docs/Data/String.md

@@ -198,8 +198,9 @@ of the string for which the predicate holds.
 split :: String -> String -> Array String
 ```
 
-Returns the substrings of the first string separated along occurences
-of the second string.
+Returns the substrings of the second string separated along occurences
+of the first string.
+* `split " " "hello world" == ["hello", "world"]`
 
 #### `toCharArray`
 

src/Data/Char.js

@@ -14,3 +14,11 @@ exports.toCharCode = function (c) {
 exports.fromCharCode = function (c) {
   return String.fromCharCode(c);
 };
+
+exports.toLowerChar = function (c) {
+  return c.toLowerCase();
+};
+
+exports.toUpperChar = function (c) {
+  return c.toUpperCase();
+};

src/Data/Char.purs

@@ -3,6 +3,8 @@ module Data.Char
   ( toString
   , fromCharCode
   , toCharCode
+  , toLowerChar
+  , toUpperChar
   ) where
 
 import Prelude
@@ -16,11 +18,13 @@ foreign import toCharCode :: Char -> Int
 -- | Constructs a character from the given Unicode numeric value.
 foreign import fromCharCode :: Int -> Char
 
+-- | Converts a character to lowercase.
+foreign import toLowerChar :: Char -> Char
+
+-- | Converts a character to uppercase.
+foreign import toUpperChar :: Char -> Char
+
 -- | Characters fall within the Unicode range.
 instance boundedChar :: Bounded Char where
   top = fromCharCode zero
   bottom = fromCharCode 65535
-
--- | Characters can be rendered as a string with `show`.
-instance showChar :: Show Char where
-  show c = "Char " ++ show (toString c)