[project @ 2003-08-01 10:00:48 by ross]

[ghc-base.git] / Text / Regex / Posix.hsc

diff --git a/Text/Regex/Posix.hsc b/Text/Regex/Posix.hsc
index 1937884..65ab13d 100644 (file)
--- a/Text/Regex/Posix.hsc
+++ b/Text/Regex/Posix.hsc
@@ -61,7 +61,7 @@ regcomp pattern flags = do
         withForeignPtr regex_fptr $ \p ->
            c_regcomp p cstr (fromIntegral flags)
   if (r == 0)
-     then do addForeignPtrFinalizer regex_fptr ptr_regfree
+     then do addForeignPtrFinalizer ptr_regfree regex_fptr
             return (Regex regex_fptr)
      else error "Text.Regex.Posix.regcomp: error in pattern" -- ToDo