X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Text%2FRegex.hs;h=152616a69a753fbc1f1e6012819c309bdaebc65c;hb=832ed3c1559a65a65b688c1e1adf0874ab8907de;hp=7a2404360b9162856df4f288a55a9fcc9266aa33;hpb=dc4c204ad24c4efead2762e4944d039aff3f5260;p=haskell-directory.git

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 =