diff options
Diffstat (limited to 'Assistant/NetMessager.hs')
| -rw-r--r-- | Assistant/NetMessager.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/NetMessager.hs b/Assistant/NetMessager.hs index 7738e44b0..329d808fc 100644 --- a/Assistant/NetMessager.hs +++ b/Assistant/NetMessager.hs @@ -43,7 +43,7 @@ storeImportantNetMessage m client matchingclient = go <<~ netMessager sent <- takeTMVar $ sentImportantNetMessages nm putTMVar (importantNetMessages nm) $ M.alter (Just . maybe (S.singleton m) (S.insert m)) client $ - M.mapWithKey removematching sent q + M.mapWithKey removematching q putTMVar (sentImportantNetMessages nm) $ M.mapWithKey removematching sent removematching someclient s |