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

comment

Browse source
This commit is contained in:
Joey Hess 2018-08-17 13:19:37 -04:00
parent ec91b6e4b2
commit c5a8abb130
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Git/Queue.hs
View file

@ -129,6 +129,9 @@ updateQueue !action different sizeincrease q repo
!newsize = size q' + sizeincrease !newsize = size q' + sizeincrease
!newitems = M.insertWith combineNewOld (actionKey action) action (items q') !newitems = M.insertWith combineNewOld (actionKey action) action (items q')
{- The new value comes first. It probably has a smaller list of files than
- the old value. So, the list append of the new value first is more
- efficient. -}
combineNewOld :: Action -> Action -> Action combineNewOld :: Action -> Action -> Action
combineNewOld (CommandAction _sc1 _ps1 fs1) (CommandAction sc2 ps2 fs2) = combineNewOld (CommandAction _sc1 _ps1 fs1) (CommandAction sc2 ps2 fs2) =
CommandAction sc2 ps2 (fs1++fs2) CommandAction sc2 ps2 (fs1++fs2)