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

better costBetween; avoid unnecessary fractional values

Browse source
This commit is contained in:
Joey Hess 2013-03-14 08:59:35 -04:00
parent 07669f4854
commit e0e01ee671
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
Config/Cost.hs
View file

@ -33,8 +33,8 @@ encryptedRemoteCostAdj = 50
- the list, inserts a new cost into the list, in between the item - the list, inserts a new cost into the list, in between the item
- and the item after it. - and the item after it.
- -
- If both items have the same cost, one of them will have its cost - If two or move items have the same cost, their costs are adjusted
- adjusted to make room. The costs of other items in the list are left - to make room. The costs of other items in the list are left
- unchanged. - unchanged.
- -
- To insert the new cost before any other in the list, specify a negative - To insert the new cost before any other in the list, specify a negative
@ -63,7 +63,10 @@ insertCostAfter l pos
costBetween :: Cost -> Cost -> Cost costBetween :: Cost -> Cost -> Cost
costBetween x y costBetween x y
| x == y = x | x == y = x
| x > y = y + (x - y) / 2 | x > y = -- avoid fractions unless needed
let mid = y + (x - y) / 2
mid' = fromIntegral ((floor mid) :: Int)
in if mid' > y then mid' else mid
| otherwise = costBetween y x | otherwise = costBetween y x
{- Make sure the remote cost numbers work out. -} {- Make sure the remote cost numbers work out. -}