From 464a57b179b52928cb31c34f101910d33dc22eb0 Mon Sep 17 00:00:00 2001
From: ross <unknown>
Date: Fri, 11 Apr 2003 23:39:44 +0000
Subject: [PATCH] [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 #-}

---
 Foreign/C/Error.hs        |    4 ++++
 System/Posix/Internals.hs |    2 ++
 2 files changed, 6 insertions(+)

diff --git a/Foreign/C/Error.hs b/Foreign/C/Error.hs
index ddf8c9e..613dd1a 100644
--- 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
--- 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
 
 -- ---------------------------------------------------------------------------
-- 
1.7.10.4