[project @ 2003-05-27 16:57:09 by malcolm]

[ghc-base.git] / Foreign / Marshal / Utils.hs

diff --git a/Foreign/Marshal/Utils.hs b/Foreign/Marshal/Utils.hs
index 06528b2..c88fb51 100644 (file)
--- a/Foreign/Marshal/Utils.hs
+++ b/Foreign/Marshal/Utils.hs
@@ -53,7 +53,7 @@ module Foreign.Marshal.Utils (
 import Data.Maybe
 import Foreign.Ptr             ( Ptr, nullPtr )
 import Foreign.Storable                ( Storable(poke) )
-import Foreign.C.Types         ( CSize, CInt(..) )
+import Foreign.C.Types         ( CSize )
 import Foreign.Marshal.Alloc   ( malloc, alloca )
 
 #ifdef __GLASGOW_HASKELL__
@@ -63,6 +63,10 @@ import GHC.Num
 import GHC.Base
 #endif
 
+#ifdef __NHC__
+import NHC.FFI                 ( CInt(..) )
+#endif
+
 -- combined allocation and marshalling
 -- -----------------------------------