From 211b6e1bce42a347c9c715fde3a0bee51326d393 Mon Sep 17 00:00:00 2001
From: David Chambers <dc@davidchambers.me>
Date: Fri, 24 Oct 2014 10:52:45 -0700
Subject: [PATCH] add split to Data.String.Regex

---
 README.md                  |  2 ++
 src/Data/String/Regex.purs | 10 +++++++++-
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/README.md b/README.md
index a77ff6b..5017222 100644
--- a/README.md
+++ b/README.md
@@ -102,4 +102,6 @@
 
     source :: Regex -> String
 
+    split :: Regex -> String -> [String]
+
     test :: Regex -> String -> Boolean
\ No newline at end of file
diff --git a/src/Data/String/Regex.purs b/src/Data/String/Regex.purs
index a9a94eb..1dac514 100644
--- a/src/Data/String/Regex.purs
+++ b/src/Data/String/Regex.purs
@@ -10,7 +10,8 @@ module Data.String.Regex (
   match,
   replace,
   replace',
-  search
+  search,
+  split
   ) where
 
 import Data.String (indexOf)
@@ -116,3 +117,10 @@ foreign import search
   \    return s.search(r);\
   \  };\
   \}" :: Regex -> String -> Number
+
+foreign import split
+  "function split(r) {\
+  \  return function(s) {\
+  \    return s.split(r);\
+  \  };\
+  \}" :: Regex -> String -> [String]