[project @ 2005-08-04 11:40:26 by simonmar]

fix typo in subRegex (fixes subRegex breakage on Windows)

diff --git a/Text/Regex.hs b/Text/Regex.hs
index 7a24043..152616a 100644 (file)
--- a/Text/Regex.hs
+++ b/Text/Regex.hs
@@ -94,7 +94,7 @@ subRegex :: Regex                          -- ^ Search pattern
       -> String                         -- ^ Output string
 subRegex _ "" _ = ""
 subRegex regexp inp repl =
-    let bre = mkRegex "\\\\(\\\\||[0-9]+)"
+    let bre = mkRegex "\\\\(\\\\|[0-9]+)"
         lookup _ [] _ = []
         lookup [] _ _ = []
         lookup match repl groups =