diff --git a/src/Simplex/Messaging/Agent.hs b/src/Simplex/Messaging/Agent.hs index 00368f11d..0dadd4795 100644 --- a/src/Simplex/Messaging/Agent.hs +++ b/src/Simplex/Messaging/Agent.hs @@ -313,9 +313,9 @@ joinConn c connId (CRContactUri (ConnReqUriData _ agentVRange (qUri :| _))) cInf case ( qUri `compatibleVersion` SMP.smpClientVRange, agentVRange `compatibleVersion` aVRange ) of - (Just qInfo, Just version) -> do + (Just qInfo, Just vrsn) -> do (connId', cReq) <- newConn c connId SCMInvitation - sendInvitation c qInfo version cReq cInfo + sendInvitation c qInfo vrsn cReq cInfo pure connId' _ -> throwError $ AGENT A_VERSION