WIP

Author: garyb

src/Data/String.js

@@ -1,95 +1,5 @@
 "use strict";
 
-exports._charAt = function (just) {
-  return function (nothing) {
-    return function (i) {
-      return function (s) {
-        return i >= 0 && i < s.length ? just(s.charAt(i)) : nothing;
-      };
-    };
-  };
-};
-
-exports.singleton = function (c) {
-  return c;
-};
-
-exports._charCodeAt = function (just) {
-  return function (nothing) {
-    return function (i) {
-      return function (s) {
-        return i >= 0 && i < s.length ? just(s.charCodeAt(i)) : nothing;
-      };
-    };
-  };
-};
-
-exports._toChar = function (just) {
-  return function (nothing) {
-    return function (s) {
-      return s.length === 1 ? just(s) : nothing;
-    };
-  };
-};
-
-exports.fromCharArray = function (a) {
-  return a.join("");
-};
-
-exports._indexOf = function (just) {
-  return function (nothing) {
-    return function (x) {
-      return function (s) {
-        var i = s.indexOf(x);
-        return i === -1 ? nothing : just(i);
-      };
-    };
-  };
-};
-
-exports["_indexOf'"] = function (just) {
-  return function (nothing) {
-    return function (x) {
-      return function (startAt) {
-        return function (s) {
-          if (startAt < 0 || startAt > s.length) return nothing;
-          var i = s.indexOf(x, startAt);
-          return i === -1 ? nothing : just(i);
-        };
-      };
-    };
-  };
-};
-
-exports._lastIndexOf = function (just) {
-  return function (nothing) {
-    return function (x) {
-      return function (s) {
-        var i = s.lastIndexOf(x);
-        return i === -1 ? nothing : just(i);
-      };
-    };
-  };
-};
-
-exports["_lastIndexOf'"] = function (just) {
-  return function (nothing) {
-    return function (x) {
-      return function (startAt) {
-        return function (s) {
-          if (startAt < 0 || startAt > s.length) return nothing;
-          var i = s.lastIndexOf(x, startAt);
-          return i === -1 ? nothing : just(i);
-        };
-      };
-    };
-  };
-};
-
-exports.length = function (s) {
-  return s.length;
-};
-
 exports._localeCompare = function (lt) {
   return function (eq) {
     return function (gt) {
@@ -119,50 +29,12 @@ exports.replaceAll = function (s1) {
   };
 };
 
-exports.take = function (n) {
-  return function (s) {
-    return s.substr(0, n);
-  };
-};
-
-exports.drop = function (n) {
-  return function (s) {
-    return s.substring(n);
-  };
-};
-
-exports._slice = function (b) {
-  return function (e) {
-    return function (s) {
-      return s.slice(b,e);
-    };
-  };
-};
-
-exports.countPrefix = function (p) {
-  return function (s) {
-    var i = 0;
-    while (i < s.length && p(s.charAt(i))) i++;
-    return i;
-  };
-};
-
 exports.split = function (sep) {
   return function (s) {
     return s.split(sep);
   };
 };
 
-exports.splitAt = function (i) {
-  return function (s) {
-    return { before: s.substring(0, i), after: s.substring(i) };
-  };
-};
-
-exports.toCharArray = function (s) {
-  return s.split("");
-};
-
 exports.toLower = function (s) {
   return s.toLowerCase();
 };