diff options
| -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 |