X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FStorable.lhs;h=a722873865929329445cef6b7be4bf1d53ad1020;hb=b77972bb8793136b82db08061fc2b1703499880a;hp=3a53f4bc402deeb93f4b78a7e7945f070464dcaa;hpb=d9a0d6f44a930da4ae49678908e37793d693467c;p=ghc-base.git

diff --git a/GHC/Storable.lhs b/GHC/Storable.lhs
index 3a53f4b..a722873 100644
--- a/GHC/Storable.lhs
+++ b/GHC/Storable.lhs
@@ -1,5 +1,7 @@
 \begin{code}
-{-# OPTIONS_GHC -fno-implicit-prelude #-}
+{-# LANGUAGE NoImplicitPrelude, MagicHash, UnboxedTuples #-}
+{-# OPTIONS_HADDOCK hide #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  GHC.Storable
@@ -16,47 +18,44 @@
 
 -- #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
 
-import GHC.Stable	( StablePtr )
+import GHC.Stable       ( StablePtr(..) )
 import GHC.Int
 import GHC.Word
-import GHC.Stable
 import GHC.Ptr
-import GHC.Float
-import GHC.IOBase
 import GHC.Base
 \end{code}