aboutsummaryrefslogtreecommitdiff
path: root/Assistant
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-05-26 17:12:03 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-05-26 17:12:03 -0400
commit092fba6499ea4dfb7c30c32cec36070a1072023b (patch)
tree6eb603ce14a5f13707e0177cf3ea30b61d23b13a /Assistant
parent797014d458f193ca223d420afaf0a6fb8281fe3b (diff)
typo
Diffstat (limited to 'Assistant')
-rw-r--r--Assistant/NetMessager.hs2
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