- withCString pattern $ \cstr -> do
- r <- c_regcomp regex_fptr cstr (fromIntegral flags)
- if (r == 0)
- then return (Regex regex_fptr)
- else error "Text.Regex.Posix.regcomp: error in pattern" -- ToDo
+ r <- withCString pattern $ \cstr ->
+ withForeignPtr regex_fptr $ \p ->
+ c_regcomp p cstr (fromIntegral flags)
+ if (r == 0)
+ then return (Regex regex_fptr)
+ else error "Text.Regex.Posix.regcomp: error in pattern" -- ToDo