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

inverted logic

Browse source
This commit is contained in:
Joey Hess 2012-04-20 16:16:13 -04:00
parent e807502666
commit b65e257b13
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Annex/Content.hs
View file

@ -177,8 +177,9 @@ checkDiskSpace destination key alreadythere = do
force <- Annex.getState Annex.force force <- Annex.getState Annex.force
case (free, keySize key) of case (free, keySize key) of
(Just have, Just need) -> do (Just have, Just need) -> do
let ok = need + reserve > have + alreadythere || force let ok = (need + reserve <= have + alreadythere) || force
unless ok $ unless ok $ do
liftIO $ print (need, reserve, have, alreadythere)
needmorespace (need + reserve - have - alreadythere) needmorespace (need + reserve - have - alreadythere)
return ok return ok
_ -> return True _ -> return True