[project @ 2003-05-22 09:40:04 by ross]

export architecture-dependent types opaquely.

diff --git a/Foreign/C/Types.hs b/Foreign/C/Types.hs
index 944cf6d..d24c5d8 100644 (file)
--- a/Foreign/C/Types.hs
+++ b/Foreign/C/Types.hs
@@ -16,19 +16,19 @@
 module Foreign.C.Types
        ( -- Integral types, instances of: Eq, Ord, Num, Read, Show, Enum,
          -- Typeable, Storable, Bounded, Real, Integral, Bits
-         CChar(..),  CSChar(..),  CUChar(..)
-       , CShort(..), CUShort(..), CInt(..),   CUInt(..)
-       , CLong(..),  CULong(..)
-       , CPtrdiff(..), CSize(..), CWchar(..), CSigAtomic(..)
-        , CLLong(..), CULLong(..)
+         CChar,  CSChar,  CUChar
+       , CShort, CUShort, CInt,   CUInt
+       , CLong,  CULong
+       , CPtrdiff, CSize, CWchar, CSigAtomic
+        , CLLong, CULLong
          -- Numeric types, instances of: Eq, Ord, Num, Read, Show, Enum,
          -- Typeable, Storable
-       , CClock(..),   CTime(..)
+       , CClock,   CTime
 
          -- Floating types, instances of: Eq, Ord, Num, Read, Show, Enum,
          -- Typeable, Storable, Real, Fractional, Floating, RealFrac,
          -- RealFloat 
-       , CFloat(..),  CDouble(..), CLDouble(..)
+       , CFloat,  CDouble, CLDouble
 
           -- Instances of: Eq and Storable
        , CFile,        CFpos,     CJmpBuf
@@ -36,12 +36,12 @@ module Foreign.C.Types
 
 #ifdef __NHC__
 import NHC.FFI
-  ( CChar(..),  CSChar(..),  CUChar(..)
-  , CShort(..), CUShort(..), CInt(..),   CUInt(..)
-  , CLong(..),  CULong(..), CLLong(..), CULLong(..)
-  , CPtrdiff(..), CSize(..), CWchar(..), CSigAtomic(..)
-  , CClock(..),   CTime(..)
-  , CFloat(..),  CDouble(..), CLDouble(..)
+  ( CChar,  CSChar,  CUChar
+  , CShort, CUShort, CInt,   CUInt
+  , CLong,  CULong, CLLong, CULLong
+  , CPtrdiff, CSize, CWchar, CSigAtomic
+  , CClock,   CTime
+  , CFloat,  CDouble, CLDouble
   , CFile,        CFpos,     CJmpBuf
   , Storable(..)
   )

diff --git a/Foreign/C/TypesISO.hs b/Foreign/C/TypesISO.hs
index 65aa789..f30c578 100644 (file)
--- a/Foreign/C/TypesISO.hs
+++ b/Foreign/C/TypesISO.hs
@@ -17,11 +17,11 @@
 module Foreign.C.TypesISO
        ( -- Integral types, instances of: Eq, Ord, Num, Read, Show, Enum,
          -- Typeable, Storable, Bounded, Real, Integral, Bits
-         CPtrdiff(..), CSize(..), CWchar(..), CSigAtomic(..)
+         CPtrdiff, CSize, CWchar, CSigAtomic
 
          -- Numeric types, instances of: Eq, Ord, Num, Read, Show, Enum,
          -- Typeable, Storable
-       , CClock(..),   CTime(..)
+       , CClock,   CTime
 
           -- Instances of: Eq and Storable
        , CFile,        CFpos,     CJmpBuf
@@ -29,12 +29,12 @@ module Foreign.C.TypesISO
 
 #ifdef __NHC__
 import NHC.FFI
-  ( CPtrdiff(..)
-  , CSize(..)
-  , CWchar(..)
-  , CSigAtomic(..)
-  , CClock(..)
-  , CTime(..)
+  ( CPtrdiff
+  , CSize
+  , CWchar
+  , CSigAtomic
+  , CClock
+  , CTime
   , CFile
   , CFpos
   , CJmpBuf

diff --git a/System/Posix/Types.hs b/System/Posix/Types.hs
index 884595e..85389a0 100644 (file)
--- a/System/Posix/Types.hs
+++ b/System/Posix/Types.hs
@@ -19,11 +19,11 @@
 module System.Posix.Types (
 
   -- * POSIX data types
-  CDev(..), CIno(..), CMode(..), COff(..), CPid(..), CSsize(..),
+  CDev, CIno, CMode, COff, CPid, CSsize,
 
 #ifndef mingw32_TARGET_OS
-  CGid(..), CNlink(..), CUid(..), CCc(..), CSpeed(..),
-  CTcflag(..), CRLim(..),
+  CGid, CNlink, CUid, CCc, CSpeed,
+  CTcflag, CRLim,
 #endif
 
   Fd(..),