projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use explicit language extensions & remove extension fields from base.cabal
[ghc-base.git]
/
Foreign
/
C
/
Types.hs
diff --git
a/Foreign/C/Types.hs
b/Foreign/C/Types.hs
index
39a6b00
..
22bae5c
100644
(file)
--- a/
Foreign/C/Types.hs
+++ b/
Foreign/C/Types.hs
@@
-1,7
+1,12
@@
-{-# OPTIONS_GHC -XNoImplicitPrelude #-}
+{-# LANGUAGE CPP
+ , NoImplicitPrelude
+ , MagicHash
+ , GeneralizedNewtypeDeriving
+ #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
-- XXX -fno-warn-unused-binds stops us warning about unused constructors,
-- but really we should just remove them if we don't want them
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
-- XXX -fno-warn-unused-binds stops us warning about unused constructors,
-- but really we should just remove them if we don't want them
+
-----------------------------------------------------------------------------
-- |
-- Module : Foreign.C.Types
-----------------------------------------------------------------------------
-- |
-- Module : Foreign.C.Types
@@
-72,6
+77,7
@@
module Foreign.C.Types
, CLLong(..), CULLong(..)
, CClock(..), CTime(..)
, CFloat(..), CDouble(..), CLDouble(..)
, CLLong(..), CULLong(..)
, CClock(..), CTime(..)
, CFloat(..), CDouble(..), CLDouble(..)
+ , CIntPtr(..), CUIntPtr(..), CIntMax(..), CUIntMax(..)
#endif
-- ** Other types
#endif
-- ** Other types
@@
-284,6
+290,7
@@
import NHC.FFI
, CPtrdiff(..), CSize(..), CWchar(..), CSigAtomic(..)
, CClock(..), CTime(..)
, CFloat(..), CDouble(..), CLDouble(..)
, CPtrdiff(..), CSize(..), CWchar(..), CSigAtomic(..)
, CClock(..), CTime(..)
, CFloat(..), CDouble(..), CLDouble(..)
+ , CIntPtr(..), CUIntPtr(..),CIntMax(..), CUIntMax(..)
, CFile, CFpos, CJmpBuf
, Storable(..)
)
, CFile, CFpos, CJmpBuf
, Storable(..)
)
@@
-321,5
+328,9
@@
INSTANCE_BITS(CPtrdiff)
INSTANCE_BITS(CWchar)
INSTANCE_BITS(CSigAtomic)
INSTANCE_BITS(CSize)
INSTANCE_BITS(CWchar)
INSTANCE_BITS(CSigAtomic)
INSTANCE_BITS(CSize)
+INSTANCE_BITS(CIntPtr)
+INSTANCE_BITS(CUIntPtr)
+INSTANCE_BITS(CIntMax)
+INSTANCE_BITS(CUIntMax)
#endif
#endif