[project @ 2003-04-11 23:39:43 by ross]

Hugs only: add a CBITS "pragma" to tell the Hugs conversion script which
files from <package>/cbits should be linked with the module by ffihugs,
e.g. {-# CBITS HsNet.c initWinSock.c ancilData.c #-}

diff --git a/Foreign/C/Error.hs b/Foreign/C/Error.hs
index ddf8c9e..613dd1a 100644 (file)
--- a/Foreign/C/Error.hs
+++ b/Foreign/C/Error.hs
@@ -116,6 +116,10 @@ import System.IO           ( IOError, Handle, ioError )
 import System.IO.Unsafe                ( unsafePerformIO )
 #endif
 
+#ifdef __HUGS__
+{-# CBITS errno.c #-}
+#endif
+
 -- "errno" type
 -- ------------
 

diff --git a/System/Posix/Internals.hs b/System/Posix/Internals.hs
index aac0997..7ac142f 100644 (file)
--- a/System/Posix/Internals.hs
+++ b/System/Posix/Internals.hs
@@ -43,6 +43,8 @@ import System.IO
 
 #ifdef __HUGS__
 import Hugs.Prelude (IOException(..), IOErrorType(..))
+
+{-# CBITS PrelIOUtils.c #-}
 #endif
 
 -- ---------------------------------------------------------------------------