fix GET from contact connection (#480)

This commit is contained in:
Evgeny Poberezkin 2022-07-21 19:42:31 +01:00 committed by GitHub
parent d810db4eed
commit eb1f9370c1
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions

View File

@ -479,7 +479,7 @@ getConnectionMessage' c connId = do
withStore c (`getConn` connId) >>= \case
SomeConn _ (DuplexConnection _ rq _) -> getQueueMessage c rq
SomeConn _ (RcvConnection _ rq) -> getQueueMessage c rq
SomeConn _ ContactConnection {} -> throwError $ CMD PROHIBITED
SomeConn _ (ContactConnection _ rq) -> getQueueMessage c rq
SomeConn _ SndConnection {} -> throwError $ CONN SIMPLEX
getNotificationMessage' :: forall m. AgentMonad m => AgentClient -> C.CbNonce -> ByteString -> m (NotificationInfo, [SMPMsgMeta])