#ifndef __NHC__
-import Foreign.Storable
+import {-# SOURCE #-} Foreign.Storable
import Data.Bits ( Bits(..) )
import Data.Int ( Int8, Int16, Int32, Int64 )
import Data.Word ( Word8, Word16, Word32, Word64 )
-import Data.Typeable
+import {-# SOURCE #-} Data.Typeable
#ifdef __GLASGOW_HASKELL__
import GHC.Base
import GHC.Read
import GHC.Num
#else
-import Control.Monad
-import Foreign.Ptr
+import Control.Monad ( liftM )
+#endif
+
+#ifdef __HUGS__
+import Hugs.Ptr ( castPtr )
#endif
#include "HsBaseConfig.h"