diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-04-24 14:18:48 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-04-26 13:55:16 -0400 |
| commit | cd4434c8e77213bf3e6f83227fd8802c9f2a6fe2 (patch) | |
| tree | 54de0daa197c8bb3f55ea78d81b76f6e7a564732 | |
| parent | af332442123878c1b61d236dce46418efcbe8750 (diff) | |
| download | haskell-cd4434c8e77213bf3e6f83227fd8802c9f2a6fe2.tar.gz | |
Fix misleading Ptr phantom type in SerializedCompact (#15653)
| -rw-r--r-- | libraries/ghc-compact/GHC/Compact/Serialized.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libraries/ghc-compact/GHC/Compact/Serialized.hs b/libraries/ghc-compact/GHC/Compact/Serialized.hs index 0263cdf9f1..ac79c95b16 100644 --- a/libraries/ghc-compact/GHC/Compact/Serialized.hs +++ b/libraries/ghc-compact/GHC/Compact/Serialized.hs @@ -47,8 +47,8 @@ import GHC.Compact -- sent out of band in advance if the data is to be sent over RDMA -- (which requires both sender and receiver to have pinned buffers). data SerializedCompact a = SerializedCompact - { serializedCompactBlockList :: [(Ptr a, Word)] - , serializedCompactRoot :: Ptr a + { serializedCompactBlockList :: [(Ptr (), Word)] + , serializedCompactRoot :: Ptr () } addrIsNull :: Addr# -> Bool |