Commit cd4434c8 authored by Sylvain Henry's avatar Sylvain Henry Committed by Marge Bot
Browse files

Fix misleading Ptr phantom type in SerializedCompact (#15653)

parent af332442
...@@ -47,8 +47,8 @@ import GHC.Compact ...@@ -47,8 +47,8 @@ import GHC.Compact
-- sent out of band in advance if the data is to be sent over RDMA -- 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). -- (which requires both sender and receiver to have pinned buffers).
data SerializedCompact a = SerializedCompact data SerializedCompact a = SerializedCompact
{ serializedCompactBlockList :: [(Ptr a, Word)] { serializedCompactBlockList :: [(Ptr (), Word)]
, serializedCompactRoot :: Ptr a , serializedCompactRoot :: Ptr ()
} }
addrIsNull :: Addr# -> Bool addrIsNull :: Addr# -> Bool
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment