[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 (file)
--- 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