From: simonmar <unknown>
Date: Tue, 19 Aug 2003 16:34:11 +0000 (+0000)
Subject: [project @ 2003-08-19 16:34:11 by simonmar]
X-Git-Tag: nhc98-1-18-release~538
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=befea6c341289c072692ceb50ca16de3271cd43b;p=ghc-base.git

[project @ 2003-08-19 16:34:11 by simonmar]
Fix reversed flag in mkRegexWithOpts
---

diff --git a/Text/Regex.hs b/Text/Regex.hs
index a0d724e..a0af8cd 100644
--- a/Text/Regex.hs
+++ b/Text/Regex.hs
@@ -47,8 +47,8 @@ mkRegexWithOpts
 mkRegexWithOpts s single_line case_sensitive
    = unsafePerformIO (RE.regcomp s (RE.regExtended + newline + igcase))
    where
-	newline | single_line = 0
-		| otherwise   = RE.regNewline
+	newline | single_line = RE.regNewline
+		| otherwise   = 0
 
 	igcase  | case_sensitive = 0 
 		| otherwise 	 = RE.regIgnoreCase