X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FStorable.lhs;h=3a53f4bc402deeb93f4b78a7e7945f070464dcaa;hb=d71aee821935e29a3569bc4b401f695536209c85;hp=f997671689d05c16ae45a82681a61eeba5fc1669;hpb=94eb93b623830885b9884290d8e4de3c29067006;p=haskell-directory.git

diff --git a/GHC/Storable.lhs b/GHC/Storable.lhs
index f997671..3a53f4b 100644
--- 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,10 +10,11 @@
 -- Stability   :  internal
 -- Portability :  non-portable (GHC Extensions)
 --
--- The 'Storable' class.
+-- Helper functions for "Foreign.Storable"
 --
 -----------------------------------------------------------------------------
 
+-- #hide
 module GHC.Storable
 	( readWideCharOffPtr  
 	, readIntOffPtr       
@@ -48,29 +49,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