Updates for 0.7

Author: paf31

src/Data/Map.purs

@@ -0,0 +1,112 @@
+/* global exports */
+"use strict";
+
+// module Data.StrMap
+
+exports._copy = (m) {
+  var r = {};
+  for (var k in m) {
+    r[k] = m[k];
+  }
+  return r;
+};
+
+exports._copyEff = function(m) {
+  return function() {
+    var r = {};
+    for (var k in m) {
+      r[k] = m[k];
+    }
+    return r;
+  };
+};
+
+exports.empty = {};
+
+exports.runST = function(f) {
+  return f;
+};
+
+exports._fmapStrMap = function(m0, f) {
+  var m = {};
+  for (var k in m0) {
+    m[k] = f(m0[k]);
+  }
+  return m;
+};
+
+exports._foldM = function(bind) {
+  return function(f) {
+    return function(mz) {
+      return function(m) {
+        function g(k) {
+          return function (z) {
+            return f(z)(k)(m[k]);
+          };
+        }
+        for (var k in m) {
+          mz = bind(mz)(g(k));
+        }
+        return mz;
+      };
+    };
+  };
+};
+
+exports._foldSCStrMap = function(m, z, f, fromMaybe) {
+  for (var k in m) {
+    var maybeR = f(z)(k)(m[k]);
+    var r = fromMaybe(null)(maybeR);
+    if (r === null) return z;
+    else z = r;
+  }
+  return z;
+};
+
+exports.all = function(f) {
+  return function(m) {
+    for (var k in m) {
+      if (!f(k)(m[k])) return false;
+    }
+    return true;
+  };
+};
+
+exports.size = function(m) {
+  var s = 0;
+  for (var k in m) {
+    ++s;
+  }
+  return s;
+};
+
+exports._lookup = function(no, yes, k, m) {
+  return k in m ? yes(m[k]) : no;
+};
+
+exports._unsafeDeleteStrMap = function(m, k) {
+   delete m[k];
+   return m;
+};
+
+exports._lookupST = function(no, yes, k, m) {
+  return function() {
+    return k in m ? yes(m[k]) : no;
+  }
+};
+
+function _collect(f) {
+  return function(m) {
+    var r = [];
+    for (var k in m) {
+      r.push(f(k)(m[k]));
+    }
+    return r;
+  };
+};
+
+exports._collect = _collect;
+
+exports.keys = Object.keys || _collect(function(k) {
+  return function() { return k; };
+});