mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

revert use of Data.Map.Strict

Browse source 
memory profile shows this did not contribute to the memory leaks fixed in
b92b54bd42
This commit is contained in:
Joey Hess 2014-01-07 14:55:06 -04:00
parent 281cde87b5
commit 1c8f5f830b
4 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Assistant/TransferQueue.hs
View file

@ -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