remove pendingContact details

This commit is contained in:
Alexander Bondarenko
2024-05-29 16:45:43 +03:00
parent 551a34dd1a
commit 4ceb0dc564
2 changed files with 4 additions and 17 deletions
+1 -4
View File
@@ -3402,10 +3402,7 @@ subscribeUserConnections vr onlyNeeded user = do
let rftPairs = mapMaybe (\ft -> (,ft) <$> liveRcvFileTransferConnId ft) rfts
pure (map fst rftPairs, M.fromList rftPairs)
getPendingContactConns :: CM [ConnId]
getPendingContactConns = do
pcs <- withStore_ getPendingContactConnections
let connIds = map aConnId' pcs
pure connIds
getPendingContactConns = withStore_ getPendingContactConnections
contactSubsToView :: Map ConnId AgentErrorType -> [ConnId] -> Map ConnId ContactRef -> Bool -> CM ()
contactSubsToView errs cts connRefs ce = ifM (asks $ coreApi . config) notifyAPI notifyCLI
where