From: simonmar <unknown>
Date: Thu, 14 Feb 2002 14:08:50 +0000 (+0000)
Subject: [project @ 2002-02-14 14:08:50 by simonmar]
X-Git-Tag: nhc98-1-18-release~1108
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9a47cd94702d25060bc49fbf1f136855af9a9512;p=ghc-base.git

[project @ 2002-02-14 14:08:50 by simonmar]
Catch up with changes to the foreign import syntax.
---

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