[project @ 2002-09-04 16:51:33 by ross]

Foreign.C.TypesISO needs to import Foreign.Storable.
Also added some imports for non-GHC platforms.

diff --git a/Foreign/C/Types.hs b/Foreign/C/Types.hs
index ee9063e..5c69a4f 100644 (file)
--- a/Foreign/C/Types.hs
+++ b/Foreign/C/Types.hs
@@ -51,6 +51,9 @@ import GHC.Real
 import GHC.Show
 import GHC.Read
 import GHC.Num
+#else
+import Control.Monad
+import Foreign.Ptr
 #endif
 
 #include "Dynamic.h"

diff --git a/Foreign/C/TypesISO.hs b/Foreign/C/TypesISO.hs
index 014c119..ae7c21c 100644 (file)
--- a/Foreign/C/TypesISO.hs
+++ b/Foreign/C/TypesISO.hs
@@ -31,6 +31,7 @@ import Data.Bits      ( Bits(..) )
 import Data.Int
 import Data.Word
 import Data.Dynamic
+import Foreign.Storable
 
 #ifdef __GLASGOW_HASKELL__
 import GHC.Base
@@ -39,6 +40,9 @@ import GHC.Real
 import GHC.Show
 import GHC.Read
 import GHC.Num
+#else
+import Control.Monad
+import Foreign.Ptr
 #endif
 
 #include "Dynamic.h"

diff --git a/Foreign/Storable.hs b/Foreign/Storable.hs
index c218fe8..43fae68 100644 (file)
--- a/Foreign/Storable.hs
+++ b/Foreign/Storable.hs
@@ -46,7 +46,11 @@ import GHC.Float
 import GHC.Err
 import GHC.IOBase
 import GHC.Base
-#elif defined(__HUGS__)
+#else
+import Foreign.Ptr
+#endif
+
+#ifdef __HUGS__
 import Hugs.Storable
 #endif