diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-01-07 14:55:06 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-01-07 14:55:06 -0400 |
| commit | 05d95044cdf97d572ffcf601ea98561057d28f3e (patch) | |
| tree | 7348a470c4245a9f7b89c3fbf01c0772a4ff96e4 /Assistant/TransferQueue.hs | |
| parent | 04d48f98c5cecabdefcddc8b68738567a530dd84 (diff) | |
revert use of Data.Map.Strict
memory profile shows this did not contribute to the memory leaks fixed in
4cf6d95c1a9d10cb59669eaceafce4c7a3155eb6
Diffstat (limited to 'Assistant/TransferQueue.hs')
| -rw-r--r-- | Assistant/TransferQueue.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Assistant/TransferQueue.hs b/Assistant/TransferQueue.hs index 05b0ba73a..98fb2f06c 100644 --- a/Assistant/TransferQueue.hs +++ b/Assistant/TransferQueue.hs @@ -34,7 +34,7 @@ import Annex.Wanted import Utility.TList import Control.Concurrent.STM -import qualified Data.Map.Strict as M +import qualified Data.Map as M import qualified Data.Set as S type Reason = String @@ -191,7 +191,7 @@ getNextTransfer acceptable = do if acceptable info then do adjustTransfersSTM dstatus $ - M.insert t info + M.insertWith' const t info return $ Just r else return Nothing |