From bd8f358e6d99df3f04c6e04c6aa7ee26407565c3 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 26 May 2013 17:12:03 -0400 Subject: [PATCH] typo --- Assistant/NetMessager.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Assistant/NetMessager.hs b/Assistant/NetMessager.hs index 7738e44b09..329d808fcf 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