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

remove debug print

Browse source
This commit is contained in:
Joey Hess 2013-05-27 11:18:18 -04:00
parent 51280d3fee
commit eba9ee5bc6
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Annex/Content.hs
View file

@ -205,8 +205,7 @@ checkDiskSpace destination key alreadythere = do
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 $ do unless ok $
liftIO $ print (need, reserve, have, alreadythere)
needmorespace (need + reserve - have - alreadythere) needmorespace (need + reserve - have - alreadythere)
return ok return ok
_ -> return True _ -> return True