Merge pull request #2 from purescript/regex-replace

Regex replacing
purescript · May 4, 2014 · 1cd34e2 · 1cd34e2
2 parents 12cd06d + 434b159
commit 1cd34e2
Showing 1 changed file with 13 additions and 2 deletions.
diff --git a/src/Data/String/Regex.purs b/src/Data/String/Regex.purs
@@ -23,15 +23,26 @@ foreign import match
   \  };\
   \}" :: Regex -> String -> [String]
 
-foreign import replaceR
-  "function replaceR(r) {\
+foreign import replace
+  "function replace(r) {\
   \  return function(s1) {\
   \    return function(s2) {\
   \      return s2.replace(r, s1);\
   \    };\
   \  };\
   \}" :: Regex -> String -> String -> String
 
+foreign import replace'
+  "function replace$prime(r) {\
+  \  return function(f) {\
+  \    return function(s2) {\
+  \      return s2.replace(r, function (match) {\
+  \        return f(match)(Array.prototype.splice.call(arguments, 1, arguments.length - 3));\
+  \      });\
+  \    };\
+  \  };\
+  \}" :: Regex -> (String -> [String] -> String) -> String -> String
+
 foreign import search
   "function search(r) {\
   \  return function (s) {\