Use explicit language extensions & remove extension fields from base.cabal

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

diff --git a/GHC/Storable.lhs b/GHC/Storable.lhs
index f997671..a722873 100644 (file)
--- 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