From: simonmar <unknown>
Date: Fri, 26 Apr 2002 13:33:10 +0000 (+0000)
Subject: [project @ 2002-04-26 13:33:10 by simonmar]
X-Git-Tag: nhc98-1-18-release~1046
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0e5a2f1d7684e4a3f3536f63c2b87fe21dd3b45d;hp=3aeed5d77b08945f63d800aa41ec3122627c73a9;p=ghc-base.git

[project @ 2002-04-26 13:33:10 by simonmar]
- Remove \$Id\$
- Fix comments that confuse Haddock
---

diff --git a/Text/Regex.hs b/Text/Regex.hs
index 43a73a3..07f155b 100644
--- a/Text/Regex.hs
+++ b/Text/Regex.hs
@@ -8,8 +8,6 @@
 -- Stability   :  experimental
 -- Portability :  non-portable (only on platforms that provide a regex lib)
 --
--- $Id: Regex.hs,v 1.2 2002/04/24 16:31:46 simonmar Exp $
---
 -- Regular expression matching.
 -- Uses the POSIX regular expression interface in Text.Regex.Posix for now.
 --
@@ -49,10 +47,10 @@ matchRegex p str =
 	Just (before, match, after, sub_strs) -> Just sub_strs
 
 matchRegexAll :: Regex -> String ->
-        Maybe ( String,  -- $`
-                String,  -- $&
-                String,  -- $'
-                [String] -- $1..
+        Maybe ( String,  -- \$`
+                String,  -- \$&
+                String,  -- \$'
+                [String] -- \$1..
               )
 matchRegexAll p str = unsafePerformIO (RE.regexec p str)