core: show rcv file error (#3054)

This commit is contained in:
spaced4ndy
2023-09-13 15:28:46 +04:00
committed by GitHub
parent 70fb10189b
commit 8178e8183e
4 changed files with 4 additions and 3 deletions
+1 -1
View File
@@ -2857,7 +2857,7 @@ processAgentMsgRcvFile _corrId aFileId msg =
liftIO $ updateFileCancelled db user fileId CIFSRcvError
getChatItemByFileId db user fileId
agentXFTPDeleteRcvFile aFileId fileId
toView $ CRRcvFileError user ci
toView $ CRRcvFileError user ci e
processAgentMessageConn :: forall m. ChatMonad m => User -> ACorrId -> ConnId -> ACommand 'Agent 'AEConn -> m ()
processAgentMessageConn user _ agentConnId END =