Merge pull request #4 from michaelficarra/show

make Regex an instance of Show

Author: garyb

README.md

@@ -46,6 +46,11 @@
     data Regex :: *
 
 
+### Type Class Instances
+
+    instance showRegex :: Show Regex
+
+
 ### Values
 
     match :: Regex -> String -> [String]

src/Data/String/Regex.purs

@@ -1,7 +1,23 @@
-module Data.String.Regex where
+module Data.String.Regex (
+  Regex(..),
+  regex,
+  test,
+  match,
+  replace,
+  replace',
+  search
+  ) where
 
 foreign import data Regex :: *
 
+foreign import showRegex'
+  "function showRegex$prime(r){\
+  \  return '' + r;\
+  \}" :: Regex -> String
+
+instance showRegex :: Show Regex where
+  show = showRegex'
+
 foreign import regex
   "function regex(s1) {\
   \  return function(s2) {\