From: simonmar <unknown>
Date: Thu, 4 Aug 2005 11:40:26 +0000 (+0000)
Subject: [project @ 2005-08-04 11:40:26 by simonmar]
X-Git-Tag: cmm-merge2~32
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=111033679998d05a85a8ed8cc882ae04702d20ac;p=haskell-directory.git

[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
--- 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 =