X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Foreign%2FStorable.hs;h=3f054490aaf8e97309d915cdc613ab4e40fb9ca9;hb=6b1a36a595eddf1e124529646afdb75c76a9966d;hp=bff2869b17d15a0e2cae11f9fe7de17019911b9b;hpb=aaf764b3ad8b1816d68b5f27299eac125f08e1a5;p=haskell-directory.git

diff --git a/Foreign/Storable.hs b/Foreign/Storable.hs
index bff2869..3f05449 100644
--- a/Foreign/Storable.hs
+++ b/Foreign/Storable.hs
@@ -45,7 +45,6 @@ import GHC.Stable	( StablePtr )
 import GHC.Num
 import GHC.Int
 import GHC.Word
-import GHC.Stable
 import GHC.Ptr
 import GHC.Float
 import GHC.Err
@@ -54,12 +53,12 @@ import GHC.Base
 #else
 import Data.Int
 import Data.Word
-import Foreign.Ptr
 import Foreign.StablePtr
 #endif
 
 #ifdef __HUGS__
 import Hugs.Prelude
+import Hugs.Ptr
 import Hugs.Storable
 #endif
 
@@ -199,7 +198,7 @@ STORABLE(Char,SIZEOF_HSCHAR,ALIGNMENT_HSCHAR,
 STORABLE(Int,SIZEOF_HSINT,ALIGNMENT_HSINT,
 	 readIntOffPtr,writeIntOffPtr)
 
-#ifdef __GLASGOW_HASKELL__
+#ifndef __NHC__
 STORABLE(Word,SIZEOF_HSWORD,ALIGNMENT_HSWORD,
 	 readWordOffPtr,writeWordOffPtr)
 #endif