Updates for 0.7

Author: paf31

src/Data/Char.js

@@ -0,0 +1,16 @@
+/* global exports */
+"use strict";
+
+// module Data.Char
+
+exports.toString = function(c) {
+  return c;
+};
+
+exports.toCharCode = function(c) {
+  return c.charCodeAt(0);
+};
+
+exports.fromCharCode = function(c) {
+  return String.fromCharCode(c);
+};

src/Data/Char.purs

@@ -1,50 +1,28 @@
 -- | A type and functions for single characters.
 module Data.Char
-  ( Char()
-  , toString
+  ( toString
   , fromCharCode
   , toCharCode
   ) where
 
-import Data.Int (Int(), fromNumber)
+import Prelude
 
---| A unicode character.
-newtype Char = Char String
+import Data.Int (fromNumber)
 
 -- | Returns the string of length `1` containing only the given character.
-toString :: Char -> String
-toString (Char s) = s
+foreign import toString :: Char -> String
 
 -- | Returns the numeric Unicode value of the character.
-foreign import toCharCode
-  """
-  function toCharCode(c) {
-    return c.charCodeAt(0);
-  }
-  """ :: Char -> Int
+foreign import toCharCode :: Char -> Int
 
 -- | Constructs a character from the given Unicode numeric value.
-foreign import fromCharCode
-  """
-  function fromCharCode(c) {
-    return String.fromCharCode(c);
-  }
-  """ :: 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
+foreign import fromCharCode :: Int -> Char
 
 -- | Characters fall within the Unicode range.
 instance boundedChar :: Bounded Char where
   top = fromCharCode zero
-  bottom = fromCharCode (fromNumber 65535)
+  bottom = fromCharCode 65535
 
 -- | Characters can be rendered as a string with `show`.
 instance showChar :: Show Char where
-  show (Char s) = "Char " ++ show s
+  show c = "Char " ++ show (toString c)

src/Data/String.js

@@ -0,0 +1,93 @@
+/* global exports */
+"use strict";
+
+// module Data.String
+
+exports._charAt = function(i, s, Just, Nothing) {
+  return i >= 0 && i < s.length ? Just(s.charAt(i)) : Nothing;
+};
+
+exports._charCodeAt = function(i, s, Just, Nothing) {
+  return i >= 0 && i < s.length ? Just(s.charCodeAt(i)) : Nothing;
+};
+
+exports.fromCharArray = function(a) {
+  return a.join('');
+};
+
+exports._indexOf = function(just, nothing, x, s) {
+  var i = s.indexOf(x);
+  return i == -1 ? nothing : just(i);
+};
+
+exports._indexOf$prime = function(just, nothing, x, startAt, s) {
+  var i = s.indexOf(x, startAt);
+  return i == -1 ? nothing : just(i);
+};
+
+exports._lastIndexOf = function(just, nothing, x, s) {
+  var i = s.lastIndexOf(x);
+  return i == -1 ? nothing : just(i);
+};
+
+exports._lastIndexOf$prime = function(just, nothing, x, startAt, s) {
+  var i = s.lastIndexOf(x, startAt);
+  return i == -1 ? nothing : just(i);
+};
+
+exports.length = function(s) {
+  return s.length;
+};
+
+exports.localeCompare = function(lt, eq, gt, s1, s2) {
+  var result = s1.localeCompare(s2);
+  return result < 0 ? lt : result > 1 ? gt : eq;
+};
+
+exports.replace = function(s1) {
+  return function(s2) {
+    return function(s3) {
+      return s3.replace(s1, s2);
+    };
+  };
+};
+
+exports.take = function(n) {
+  return function(s) {
+    return s.substr(0, n);
+  };
+};
+
+exports.drop = function(n) {
+  return function(s) {
+    return s.substr(n);
+  };
+};
+
+exports.split = function(sep) {
+  return function(s) {
+    return s.split(sep);
+  };
+};
+
+exports.toCharArray = function(s) {
+  return s.split('');
+};
+
+exports.toLower = function(s) {
+  return s.toLowerCase();
+};
+
+exports.toUpper = function(s) {
+  return s.toUpperCase();
+};
+
+exports.trim = function(s) {
+  return s.trim();
+};
+
+exports.joinWith = function(s) {
+  return function(xs) {
+    return xs.join(s);
+  };
+};