diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-05-27 11:18:18 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-05-27 11:18:18 -0400 |
| commit | bf8c9ffe2fc678b4414d28de55224cb044012229 (patch) | |
| tree | 66175ae8eb6b66f4608ef6ffed1c6b99e20e1a18 /Annex | |
| parent | 9aee30b9de1eddec38659ba2e7d0c263ee665929 (diff) | |
remove debug print
Diffstat (limited to 'Annex')
| -rw-r--r-- | Annex/Content.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Annex/Content.hs b/Annex/Content.hs index 62c52cf88..b0e0643d7 100644 --- a/Annex/Content.hs +++ b/Annex/Content.hs @@ -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 |