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

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
(Just have, Just need) -> do
let ok = (need + reserve <= have + alreadythere) || force
unless ok $ do
liftIO $ print (need, reserve, have, alreadythere)
unless ok $
needmorespace (need + reserve - have - alreadythere)
return ok
_ -> return True