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 <[email protected]> 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 _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
