From efc37fdab381c901c4957e3c94119b3e10385513 Mon Sep 17 00:00:00 2001
From: ross <unknown>
Date: Wed, 4 Sep 2002 16:51:34 +0000
Subject: [PATCH 1/1] [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.

---
 Foreign/C/Types.hs    |    3 +++
 Foreign/C/TypesISO.hs |    4 ++++
 Foreign/Storable.hs   |    6 +++++-
 3 files changed, 12 insertions(+), 1 deletion(-)

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