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

diff --git a/GHC/Storable.lhs b/GHC/Storable.lhs
index f997671..a722873 100644
--- a/GHC/Storable.lhs
+++ b/GHC/Storable.lhs
@@ -1,5 +1,7 @@
 \begin{code}
-{-# OPTIONS -fno-implicit-prelude #-}
+{-# LANGUAGE NoImplicitPrelude, MagicHash, UnboxedTuples #-}
+{-# OPTIONS_HADDOCK hide #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  GHC.Storable
@@ -10,67 +12,53 @@
 -- Stability   :  internal
 -- Portability :  non-portable (GHC Extensions)
 --
--- The 'Storable' class.
+-- Helper functions for "Foreign.Storable"
 --
 -----------------------------------------------------------------------------
 
+-- #hide
 module GHC.Storable
-	( readWideCharOffPtr  
-	, readIntOffPtr       
-	, readWordOffPtr      
-	, readPtrOffPtr       
-	, readFunPtrOffPtr    
-	, readFloatOffPtr     
-	, readDoubleOffPtr    
-	, readStablePtrOffPtr 
-	, readInt8OffPtr      
-	, readInt16OffPtr     
-	, readInt32OffPtr     
-	, readInt64OffPtr     
-	, readWord8OffPtr     
-	, readWord16OffPtr    
-	, readWord32OffPtr    
-	, readWord64OffPtr    
-	, writeWideCharOffPtr 
-	, writeIntOffPtr      
-	, writeWordOffPtr     
-	, writePtrOffPtr      
-	, writeFunPtrOffPtr   
-	, writeFloatOffPtr    
-	, writeDoubleOffPtr   
-	, writeStablePtrOffPtr
-	, writeInt8OffPtr     
-	, writeInt16OffPtr    
-	, writeInt32OffPtr    
-	, writeInt64OffPtr    
-	, writeWord8OffPtr    
-	, writeWord16OffPtr   
-	, writeWord32OffPtr   
-	, writeWord64OffPtr   
+        ( readWideCharOffPtr  
+        , readIntOffPtr       
+        , readWordOffPtr      
+        , readPtrOffPtr       
+        , readFunPtrOffPtr    
+        , readFloatOffPtr     
+        , readDoubleOffPtr    
+        , readStablePtrOffPtr 
+        , readInt8OffPtr      
+        , readInt16OffPtr     
+        , readInt32OffPtr     
+        , readInt64OffPtr     
+        , readWord8OffPtr     
+        , readWord16OffPtr    
+        , readWord32OffPtr    
+        , readWord64OffPtr    
+        , writeWideCharOffPtr 
+        , writeIntOffPtr      
+        , writeWordOffPtr     
+        , writePtrOffPtr      
+        , writeFunPtrOffPtr   
+        , writeFloatOffPtr    
+        , writeDoubleOffPtr   
+        , writeStablePtrOffPtr
+        , writeInt8OffPtr     
+        , writeInt16OffPtr    
+        , writeInt32OffPtr    
+        , writeInt64OffPtr    
+        , writeWord8OffPtr    
+        , writeWord16OffPtr   
+        , 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.Stable       ( StablePtr(..) )
 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