From 9a47cd94702d25060bc49fbf1f136855af9a9512 Mon Sep 17 00:00:00 2001 From: simonmar Date: Thu, 14 Feb 2002 14:08:50 +0000 Subject: [PATCH] [project @ 2002-02-14 14:08:50 by simonmar] Catch up with changes to the foreign import syntax. --- Text/Regex/Posix.hsc | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Text/Regex/Posix.hsc b/Text/Regex/Posix.hsc index 414a5c1..8df4331 100644 --- a/Text/Regex/Posix.hsc +++ b/Text/Regex/Posix.hsc @@ -8,7 +8,7 @@ -- Stability : experimental -- Portability : non-portable (only on platforms that provide POSIX regexps) -- --- $Id: Posix.hsc,v 1.4 2002/02/13 11:52:42 simonmar Exp $ +-- $Id: Posix.hsc,v 1.5 2002/02/14 14:08:50 simonmar Exp $ -- -- Interface to the POSIX regular expression library. -- ToDo: should have an interface using PackedStrings. @@ -145,12 +145,12 @@ unpack string p_match = do type CRegex = () type CRegMatch = () -foreign import "regcomp" unsafe +foreign import ccall unsafe "regcomp" c_regcomp :: Ptr CRegex -> CString -> CInt -> IO CInt -foreign import "regfree" unsafe +foreign import ccall unsafe "regfree" c_regfree :: Ptr CRegex -> IO () -foreign import "regexec" unsafe +foreign import ccall unsafe "regexec" c_regexec :: Ptr CRegex -> CString -> CSize -> Ptr CRegMatch -> CInt -> IO CInt -- 1.7.10.4