diff --git a/src/Simplex/Messaging/Agent/Protocol.hs b/src/Simplex/Messaging/Agent/Protocol.hs index 463639942..19997b6af 100644 --- a/src/Simplex/Messaging/Agent/Protocol.hs +++ b/src/Simplex/Messaging/Agent/Protocol.hs @@ -1684,13 +1684,13 @@ instance Encoding AConnLinkData where smpP = smpP >>= \case CMInvitation -> do - (vr, userData) <- smpP + (vr, userData) <- smpP <* A.takeByteString -- ignoring tail for forward compatibility with the future link data encoding pure $ ACLD SCMInvitation $ InvitationLinkData vr userData CMContact -> do (agentVRange, direct) <- smpP owners <- smpListP relays <- smpListP - userData <- smpP + userData <- smpP <* A.takeByteString -- ignoring tail for forward compatibility with the future link data encoding pure $ ACLD SCMContact ContactLinkData {agentVRange, direct, owners, relays, userData} -- | SMP queue status.