diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2023-01-18 14:33:52 -0500 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2023-01-28 02:57:59 -0500 |
| commit | 56c1bd986ac13e3a1fe1149f011480e44f857f5a (patch) | |
| tree | c5cf6a50a461de93072b9f338f4381be8ed47ec1 /libraries | |
| parent | 77fdbd3f7798ae7095a6a22c3674c08c86a91c6c (diff) | |
| download | haskell-56c1bd986ac13e3a1fe1149f011480e44f857f5a.tar.gz | |
Revert "CApiFFI: add ConstPtr for encoding const-qualified pointer return types (#22043)"
This reverts commit 99aca26b652603bc62953157a48e419f737d352d.
Diffstat (limited to 'libraries')
| -rw-r--r-- | libraries/base/Foreign/C/Types.hs | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/libraries/base/Foreign/C/Types.hs b/libraries/base/Foreign/C/Types.hs index 7f74a07bc8..f2c83c4203 100644 --- a/libraries/base/Foreign/C/Types.hs +++ b/libraries/base/Foreign/C/Types.hs @@ -86,11 +86,8 @@ module Foreign.C.Types -- Instances of: Eq and Storable , CFile, CFpos, CJmpBuf - - , ConstPtr(..) ) where -import Foreign.Ptr ( Ptr ) import Foreign.Storable import Data.Bits ( Bits(..), FiniteBits(..) ) import Data.Int ( Int8, Int16, Int32, Int64 ) @@ -226,9 +223,6 @@ INTEGRAL_TYPE(CUIntPtr,"uintptr_t",HTYPE_UINTPTR_T) INTEGRAL_TYPE(CIntMax,"intmax_t",HTYPE_INTMAX_T) INTEGRAL_TYPE(CUIntMax,"uintmax_t",HTYPE_UINTMAX_T) --- | Used to produce 'const' qualifier in C code generator -newtype ConstPtr a = ConstPtr { unConstPtr :: Ptr a } deriving newtype (Show, Eq, Storable) - -- C99 types which are still missing include: -- wint_t, wctrans_t, wctype_t |