[project @ 2005-01-31 12:57:26 by simonmar]

[ghc-base.git] / GHC / Storable.lhs

diff --git a/GHC/Storable.lhs b/GHC/Storable.lhs
index f997671..7e3c7da 100644 (file)
--- a/GHC/Storable.lhs
+++ b/GHC/Storable.lhs
@@ -1,5 +1,5 @@
 \begin{code}
-{-# OPTIONS -fno-implicit-prelude #-}
+{-# OPTIONS_GHC -fno-implicit-prelude #-}
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  GHC.Storable
@@ -10,7 +10,7 @@
 -- Stability   :  internal
 -- Portability :  non-portable (GHC Extensions)
 --
--- The 'Storable' class.
+-- Helper functions for "Foreign.Storable"
 --
 -----------------------------------------------------------------------------
 
@@ -48,29 +48,17 @@ module GHC.Storable
        , writeWord32OffPtr   
        , writeWord64OffPtr   
         ) where
-\end{code}
-
-\begin{code}
-import Control.Monad           ( liftM )
-import Foreign.C.Types
-import Foreign.C.TypesISO
 
-#ifdef __GLASGOW_HASKELL__
 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
 import GHC.IOBase
 import GHC.Base
-#endif
 \end{code}
 
-Helper functions for Foreign.Storable
-
 \begin{code}
 
 readWideCharOffPtr  :: Ptr Char          -> Int -> IO Char