X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FStorable.lhs;h=5fe189410a51cf3a406637e73eec17458420f79b;hb=6be5e3277137f11000e7eb145d53009e157e7c90;hp=f997671689d05c16ae45a82681a61eeba5fc1669;hpb=94eb93b623830885b9884290d8e4de3c29067006;p=ghc-base.git

diff --git a/GHC/Storable.lhs b/GHC/Storable.lhs
index f997671..5fe1894 100644
--- a/GHC/Storable.lhs
+++ b/GHC/Storable.lhs
@@ -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