diff options
author | 2013-05-26 17:12:03 -0400 | |
---|---|---|
committer | 2013-05-26 17:12:03 -0400 | |
commit | 092fba6499ea4dfb7c30c32cec36070a1072023b (patch) | |
tree | 6eb603ce14a5f13707e0177cf3ea30b61d23b13a | |
parent | 797014d458f193ca223d420afaf0a6fb8281fe3b (diff) |
typo
-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 |