diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2020-12-15 11:21:06 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2020-12-15 11:21:06 -0500 |
| commit | 331f556886e611af3d2633d1cebb868574a2aa13 (patch) | |
| tree | cc38fae1d51227ca86677435aaee311c2e6bbbe0 /testsuite/tests/ffi | |
| parent | 535dae66271af0ce4ab9c0a772614b700bc4c92a (diff) | |
| download | haskell-331f556886e611af3d2633d1cebb868574a2aa13.tar.gz | |
Revert "Implement BoxedRep proposal"
This was inadvertently merged.
This reverts commit 6c2eb2232b39ff4720fda0a4a009fb6afbc9dcea.
Diffstat (limited to 'testsuite/tests/ffi')
| -rw-r--r-- | testsuite/tests/ffi/should_run/T16650a.hs | 2 | ||||
| -rw-r--r-- | testsuite/tests/ffi/should_run/T16650b.hs | 2 | ||||
| -rw-r--r-- | testsuite/tests/ffi/should_run/T16650c.hs | 2 | ||||
| -rw-r--r-- | testsuite/tests/ffi/should_run/T16650d.hs | 2 | ||||
| -rw-r--r-- | testsuite/tests/ffi/should_run/UnliftedNewtypesByteArrayOffset.hs | 2 |
5 files changed, 5 insertions, 5 deletions
diff --git a/testsuite/tests/ffi/should_run/T16650a.hs b/testsuite/tests/ffi/should_run/T16650a.hs index 65fc38b57d..6a43a55118 100644 --- a/testsuite/tests/ffi/should_run/T16650a.hs +++ b/testsuite/tests/ffi/should_run/T16650a.hs @@ -27,7 +27,7 @@ foreign import ccall unsafe "head_bytearray" c_head_bytearray :: MutableByteArray# RealWorld -> IO Word8 data Box :: Type where - Box :: (Any :: TYPE ('BoxedRep 'Unlifted)) -> Box + Box :: (Any :: TYPE 'UnliftedRep) -> Box data MutableByteArray :: Type where MutableByteArray :: MutableByteArray# RealWorld -> MutableByteArray diff --git a/testsuite/tests/ffi/should_run/T16650b.hs b/testsuite/tests/ffi/should_run/T16650b.hs index 265e5bf65f..ba0d4a72a0 100644 --- a/testsuite/tests/ffi/should_run/T16650b.hs +++ b/testsuite/tests/ffi/should_run/T16650b.hs @@ -31,7 +31,7 @@ foreign import ccall unsafe "is_doubleton_homogenous" c_is_doubleton_homogeneous :: MutableArrayArray# RealWorld -> IO Word8 data Box :: Type where - Box :: (Any :: TYPE ('BoxedRep 'Unlifted)) -> Box + Box :: (Any :: TYPE 'UnliftedRep) -> Box -- An array of bytes data MutableByteArray :: Type where diff --git a/testsuite/tests/ffi/should_run/T16650c.hs b/testsuite/tests/ffi/should_run/T16650c.hs index 0d8e9ac8ec..968731b3bd 100644 --- a/testsuite/tests/ffi/should_run/T16650c.hs +++ b/testsuite/tests/ffi/should_run/T16650c.hs @@ -26,7 +26,7 @@ foreign import ccall unsafe "is_doubleton_homogenous" MutableArray# RealWorld a -> IO Word8 data Box :: Type where - Box :: (Any :: TYPE ('BoxedRep 'Unlifted)) -> Box + Box :: (Any :: TYPE 'UnliftedRep) -> Box -- An array of unary integer functions data MutableArray :: Type where diff --git a/testsuite/tests/ffi/should_run/T16650d.hs b/testsuite/tests/ffi/should_run/T16650d.hs index 874701b40a..8bb4a4697b 100644 --- a/testsuite/tests/ffi/should_run/T16650d.hs +++ b/testsuite/tests/ffi/should_run/T16650d.hs @@ -26,7 +26,7 @@ foreign import ccall unsafe "is_doubleton_homogenous" SmallMutableArray# RealWorld a -> IO Word8 data Box :: Type where - Box :: (Any :: TYPE ('BoxedRep 'Unlifted)) -> Box + Box :: (Any :: TYPE 'UnliftedRep) -> Box -- An array of unary integer functions data SmallMutableArray :: Type where diff --git a/testsuite/tests/ffi/should_run/UnliftedNewtypesByteArrayOffset.hs b/testsuite/tests/ffi/should_run/UnliftedNewtypesByteArrayOffset.hs index 7a0a5cce19..8953e9b02d 100644 --- a/testsuite/tests/ffi/should_run/UnliftedNewtypesByteArrayOffset.hs +++ b/testsuite/tests/ffi/should_run/UnliftedNewtypesByteArrayOffset.hs @@ -19,7 +19,7 @@ foreign import ccall unsafe "head_bytearray" foreign import ccall unsafe "head_bytearray" c_head_bytearray_b :: MyArray# -> IO Word8 -newtype MyArray# :: TYPE ('BoxedRep 'Unlifted) where +newtype MyArray# :: TYPE 'UnliftedRep where MyArray# :: MutableByteArray# RealWorld -> MyArray# data MutableByteArray :: Type where |