From: ross <unknown>
Date: Thu, 22 May 2003 09:40:04 +0000 (+0000)
Subject: [project @ 2003-05-22 09:40:04 by ross]
X-Git-Tag: nhc98-1-18-release~639
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=36352e8dee9767b21c5a90ea50f22a07a11b552c;p=haskell-directory.git

[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
--- 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
--- 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
--- 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(..),