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

minor robustness fixes in repo cost reordering code

Browse source
This commit is contained in:
Joey Hess 2013-03-18 13:13:33 -04:00
parent 705cb5a84a
commit 69cc8e83ce
2 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Config/Cost.hs
View file

@ -42,7 +42,7 @@ encryptedRemoteCostAdj = 50
- position longer than the list.
-}
insertCostAfter :: [Cost] -> Int -> [Cost]
insertCostAfter [] _ = error "insertCostAfter: empty list"
insertCostAfter [] _ = []
insertCostAfter l pos
| pos < 0 = costBetween 0 (l !! 0) : l
| nextpos > maxpos = l ++ [1 + l !! maxpos]