Add escaping functions (fixes #37)

iconnect · Mar 5, 2017 · 1903ca0 · 1903ca0
1 parent e1d229a
commit 1903ca0
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 12 deletions.
diff --git a/Text/RE/Internal/EscapeREString.hs b/Text/RE/Internal/EscapeREString.hs
@@ -8,14 +8,18 @@ escapeREString = foldr esc []
 
 isMetaChar :: Char -> Bool
 isMetaChar c = case c of
-  '*' -> True
-  '?' -> True
-  '+' -> True
-  '[' -> True
-  ']' -> True
-  '{' -> True
-  '}' -> True
-  '$' -> True
-  '^' -> True
-  '.' -> True
-  _   -> False
+  '^'  -> True
+  '\\' -> True
+  '.'  -> True
+  '|'  -> True
+  '*'  -> True
+  '?'  -> True
+  '+'  -> True
+  '('  -> True
+  ')'  -> True
+  '['  -> True
+  ']'  -> True
+  '{'  -> True
+  '}'  -> True
+  '$'  -> True
+  _    -> False
diff --git a/examples/re-tests.lhs b/examples/re-tests.lhs
@@ -424,7 +424,7 @@ escapeTests = testGroup "Escape Tests"
     tst esc (%=~) s = matched $ s %=~ esc (("^" ++) . (++ "$")) s
 
     metacharacters :: String
-    metacharacters = "^*+?[]{}$."
+    metacharacters = "^\\.|*+?()[]{}$"
 \end{code}