X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Foreign%2FStorable.hs;h=43fae6840628e2e3dc59caba2a3f37f3c87fb09a;hb=efc37fdab381c901c4957e3c94119b3e10385513;hp=c218fe8fdd1184bfdf4dbb2afe0a337f8e1fed96;hpb=c4bfba7c3d39965a24ea6e7d3f2549979a1f2f85;p=ghc-base.git

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