[project @ 2003-07-29 12:03:13 by ross]

[ghc-base.git] / Foreign / C / Error.hs

diff --git a/Foreign/C/Error.hs b/Foreign/C/Error.hs
index ddf8c9e..33a7bfd 100644 (file)
--- a/Foreign/C/Error.hs
+++ b/Foreign/C/Error.hs
@@ -107,7 +107,6 @@ import Foreign.Marshal.Error        ( void )
 import Data.Maybe
 
 #if __GLASGOW_HASKELL__
-import GHC.Storable
 import GHC.IOBase
 import GHC.Num
 import GHC.Base
@@ -116,6 +115,11 @@ import System.IO           ( IOError, Handle, ioError )
 import System.IO.Unsafe                ( unsafePerformIO )
 #endif
 
+#ifdef __HUGS__
+{-# CBITS errno.c #-}
+#endif
+
+
 -- "errno" type
 -- ------------