Avoid using deprecated flags

[ghc-base.git] / Foreign / C / Types.hs

diff --git a/Foreign/C/Types.hs b/Foreign/C/Types.hs
index 625c4b3..c5c3745 100644 (file)
--- a/Foreign/C/Types.hs
+++ b/Foreign/C/Types.hs
@@ -1,4 +1,4 @@
-{-# OPTIONS_GHC -fno-implicit-prelude #-}
+{-# OPTIONS_GHC -XNoImplicitPrelude #-}
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Foreign.C.Types
@@ -14,63 +14,63 @@
 -----------------------------------------------------------------------------
 
 module Foreign.C.Types
-       ( -- * Representations of C types
+        ( -- * Representations of C types
 #ifndef __NHC__
-         -- $ctypes
-
-         -- ** Integral types
-         -- | These types are are represented as @newtype@s of
-         -- types in "Data.Int" and "Data.Word", and are instances of
-         -- 'Prelude.Eq', 'Prelude.Ord', 'Prelude.Num', 'Prelude.Read',
-         -- 'Prelude.Show', 'Prelude.Enum', 'Typeable', 'Storable',
-         -- 'Prelude.Bounded', 'Prelude.Real', 'Prelude.Integral' and
-         -- 'Bits'.
-         CChar,  CSChar,  CUChar
-       , CShort, CUShort, CInt,   CUInt
-       , CLong,  CULong
-       , CPtrdiff, CSize, CWchar, CSigAtomic
+          -- $ctypes
+
+          -- ** Integral types
+          -- | These types are are represented as @newtype@s of
+          -- types in "Data.Int" and "Data.Word", and are instances of
+          -- 'Prelude.Eq', 'Prelude.Ord', 'Prelude.Num', 'Prelude.Read',
+          -- 'Prelude.Show', 'Prelude.Enum', 'Typeable', 'Storable',
+          -- 'Prelude.Bounded', 'Prelude.Real', 'Prelude.Integral' and
+          -- 'Bits'.
+          CChar,  CSChar,  CUChar
+        , CShort, CUShort, CInt,   CUInt
+        , CLong,  CULong
+        , CPtrdiff, CSize, CWchar, CSigAtomic
         , CLLong, CULLong
-       , CIntPtr, CUIntPtr
-       , CIntMax, CUIntMax
-
-         -- ** Numeric types
-         -- | These types are are represented as @newtype@s of basic
-         -- foreign types, and are instances of
-         -- 'Prelude.Eq', 'Prelude.Ord', 'Prelude.Num', 'Prelude.Read',
-         -- 'Prelude.Show', 'Prelude.Enum', 'Typeable' and 'Storable'.
-       , CClock,   CTime
-
-         -- ** Floating types
-         -- | These types are are represented as @newtype@s of
-         -- 'Prelude.Float' and 'Prelude.Double', and are instances of
-         -- 'Prelude.Eq', 'Prelude.Ord', 'Prelude.Num', 'Prelude.Read',
-         -- 'Prelude.Show', 'Prelude.Enum', 'Typeable', 'Storable',
-         -- 'Prelude.Real', 'Prelude.Fractional', 'Prelude.Floating',
-         -- 'Prelude.RealFrac' and 'Prelude.RealFloat'.
-       , CFloat,  CDouble, CLDouble
+        , CIntPtr, CUIntPtr
+        , CIntMax, CUIntMax
+
+          -- ** Numeric types
+          -- | These types are are represented as @newtype@s of basic
+          -- foreign types, and are instances of
+          -- 'Prelude.Eq', 'Prelude.Ord', 'Prelude.Num', 'Prelude.Read',
+          -- 'Prelude.Show', 'Prelude.Enum', 'Typeable' and 'Storable'.
+        , CClock,   CTime
+
+          -- ** Floating types
+          -- | These types are are represented as @newtype@s of
+          -- 'Prelude.Float' and 'Prelude.Double', and are instances of
+          -- 'Prelude.Eq', 'Prelude.Ord', 'Prelude.Num', 'Prelude.Read',
+          -- 'Prelude.Show', 'Prelude.Enum', 'Typeable', 'Storable',
+          -- 'Prelude.Real', 'Prelude.Fractional', 'Prelude.Floating',
+          -- 'Prelude.RealFrac' and 'Prelude.RealFloat'.
+        , CFloat,  CDouble, CLDouble
 #else
-         -- Exported non-abstractly in nhc98 to fix an interface file problem.
-         CChar(..),    CSChar(..),  CUChar(..)
-       , CShort(..),   CUShort(..), CInt(..),   CUInt(..)
-       , CLong(..),    CULong(..)
-       , CPtrdiff(..), CSize(..),   CWchar(..), CSigAtomic(..)
+          -- Exported non-abstractly in nhc98 to fix an interface file problem.
+          CChar(..),    CSChar(..),  CUChar(..)
+        , CShort(..),   CUShort(..), CInt(..),   CUInt(..)
+        , CLong(..),    CULong(..)
+        , CPtrdiff(..), CSize(..),   CWchar(..), CSigAtomic(..)
         , CLLong(..),   CULLong(..)
-       , CClock(..),   CTime(..)
-       , CFloat(..),   CDouble(..), CLDouble(..)
+        , CClock(..),   CTime(..)
+        , CFloat(..),   CDouble(..), CLDouble(..)
 #endif
-         -- ** Other types
+          -- ** Other types
 
           -- Instances of: Eq and Storable
-       , CFile,        CFpos,     CJmpBuf
-       ) where
+        , CFile,        CFpos,     CJmpBuf
+        ) where
 
 #ifndef __NHC__
 
-import Foreign.Storable
-import Data.Bits       ( Bits(..) )
-import Data.Int                ( Int8,  Int16,  Int32,  Int64  )
-import Data.Word       ( Word8, Word16, Word32, Word64 )
-import Data.Typeable
+import {-# SOURCE #-} Foreign.Storable
+import Data.Bits        ( Bits(..) )
+import Data.Int         ( Int8,  Int16,  Int32,  Int64  )
+import Data.Word        ( Word8, Word16, Word32, Word64 )
+import {-# SOURCE #-} Data.Typeable
 
 #ifdef __GLASGOW_HASKELL__
 import GHC.Base
@@ -81,8 +81,11 @@ import GHC.Show
 import GHC.Read
 import GHC.Num
 #else
-import Control.Monad
-import Foreign.Ptr
+import Control.Monad    ( liftM )
+#endif
+
+#ifdef __HUGS__
+import Hugs.Ptr         ( castPtr )
 #endif
 
 #include "HsBaseConfig.h"
@@ -183,6 +186,11 @@ INTEGRAL_TYPE(CSigAtomic,tyConCSigAtomic,"CSigAtomic",HTYPE_SIG_ATOMIC_T)
 -- | Haskell type representing the C @clock_t@ type.
 ARITHMETIC_TYPE(CClock,tyConCClock,"CClock",HTYPE_CLOCK_T)
 -- | Haskell type representing the C @time_t@ type.
+--
+-- To convert to a @Data.Time.UTCTime@, use the following formula:
+--
+-- >  posixSecondsToUTCTime (realToFrac :: POSIXTime)
+--
 ARITHMETIC_TYPE(CTime,tyConCTime,"CTime",HTYPE_TIME_T)
 
 -- FIXME: Implement and provide instances for Eq and Storable
@@ -251,7 +259,7 @@ representing a C type @t@:
 
 -}
 
-#else  /* __NHC__ */
+#else   /* __NHC__ */
 
 import NHC.FFI
   ( CChar(..),    CSChar(..),  CUChar(..)