[project @ 2002-04-24 16:31:37 by simonmar]

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

diff --git a/Text/Regex/Posix.hsc b/Text/Regex/Posix.hsc
index 414a5c1..1035518 100644 (file)
--- a/Text/Regex/Posix.hsc
+++ b/Text/Regex/Posix.hsc
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- 
+-- |
 -- Module      :  Text.Regex.Posix
 -- Copyright   :  (c) The University of Glasgow 2001
 -- License     :  BSD-style (see the file libraries/core/LICENSE)
@@ -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.7 2002/04/24 16:31:47 simonmar Exp $
 --
 -- Interface to the POSIX regular expression library.
 -- ToDo: should have an interface using PackedStrings.
@@ -32,6 +32,7 @@ module Text.Regex.Posix (
        regNewline      -- (flag to regcomp) '.' doesn't match newline
   ) where
 
+#include <sys/types.h>
 #include "regex.h"
 
 import Prelude
@@ -145,12 +146,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