[commit: base] master: Whitespace only. This patch is part 2 of 4 for trac #4247 and #4970. (14bd155)
Ian Lynagh
igloo at earth.li
Sun Jun 12 17:21:30 CEST 2011
Repository : ssh://darcs.haskell.org//srv/darcs/packages/base
On branch : master
http://hackage.haskell.org/trac/ghc/changeset/14bd1552c600c6372876a6229136219b58dbdf7f
>---------------------------------------------------------------
commit 14bd1552c600c6372876a6229136219b58dbdf7f
Author: William Knop <william.knop.nospam at gmail.com>
Date: Mon Apr 4 20:40:06 2011 -0400
Whitespace only. This patch is part 2 of 4 for trac #4247 and #4970.
>---------------------------------------------------------------
Foreign/C/Types.hs | 29 ++++++++++++++---------------
1 files changed, 14 insertions(+), 15 deletions(-)
diff --git a/Foreign/C/Types.hs b/Foreign/C/Types.hs
index f6bdec1..14b53df 100644
--- a/Foreign/C/Types.hs
+++ b/Foreign/C/Types.hs
@@ -73,14 +73,14 @@ module Foreign.C.Types
#endif
#else
-- Exported non-abstractly in nhc98 to fix an interface file problem.
- CChar(..), CSChar(..), CUChar(..)
- , CShort(..), CUShort(..), CInt(..), CUInt(..)
+ CChar(..), CSChar(..), CUChar(..)
+ , CShort(..), CUShort(..), CInt(..), CUInt(..)
, CLong(..), CULong(..)
- , CPtrdiff(..), CSize(..), CWchar(..), CSigAtomic(..)
+ , CPtrdiff(..), CSize(..), CWchar(..), CSigAtomic(..)
, CLLong(..), CULLong(..)
- , CClock(..), CTime(..), CUSeconds(..), CSUSeconds(..)
- , CFloat(..), CDouble(..), CLDouble(..)
- , CIntPtr(..), CUIntPtr(..), CIntMax(..), CUIntMax(..)
+ , CClock(..), CTime(..), CUSeconds(..), CSUSeconds(..)
+ , CFloat(..), CDouble(..), CLDouble(..)
+ , CIntPtr(..), CUIntPtr(..), CIntMax(..), CUIntMax(..)
#endif
-- ** Other types
@@ -215,7 +215,6 @@ 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.
>---------------------------------------------------------------
ARITHMETIC_TYPE(CTime,tyConCTime,"CTime",HTYPE_TIME_T)
-- | Haskell type representing the C @useconds_t@ type.
ARITHMETIC_TYPE(CUSeconds,tyConCUSeconds,"CUSeconds",HTYPE_USECONDS_T)
@@ -291,14 +290,14 @@ representing a C type @t@:
#else /* __NHC__ */
import NHC.FFI
- ( CChar(..), CSChar(..), CUChar(..)
- , CShort(..), CUShort(..), CInt(..), CUInt(..)
- , CLong(..), CULong(..), CLLong(..), CULLong(..)
- , CPtrdiff(..), CSize(..), CWchar(..), CSigAtomic(..)
- , CClock(..), CTime(..), CUSeconds(..), CSUSeconds(..)
- , CFloat(..), CDouble(..), CLDouble(..)
- , CIntPtr(..), CUIntPtr(..),CIntMax(..), CUIntMax(..)
- , CFile, CFpos, CJmpBuf
+ ( CChar(..), CSChar(..), CUChar(..)
+ , CShort(..), CUShort(..), CInt(..), CUInt(..)
+ , CLong(..), CULong(..), CLLong(..), CULLong(..)
+ , CPtrdiff(..), CSize(..), CWchar(..), CSigAtomic(..)
+ , CClock(..), CTime(..), CUSeconds(..), CSUSeconds(..)
+ , CFloat(..), CDouble(..), CLDouble(..)
+ , CIntPtr(..), CUIntPtr(..), CIntMax(..), CUIntMax(..)
+ , CFile, CFpos, CJmpBuf
, Storable(..)
)
import Data.Bits
More information about the Cvs-libraries
mailing list