From: ross <unknown>
Date: Wed, 4 Sep 2002 16:51:34 +0000 (+0000)
Subject: [project @ 2002-09-04 16:51:33 by ross]
X-Git-Tag: nhc98-1-18-release~873
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=efc37fdab381c901c4957e3c94119b3e10385513;hp=c4bfba7c3d39965a24ea6e7d3f2549979a1f2f85;p=ghc-base.git

[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
--- 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
--- 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
--- 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