diff options
Diffstat (limited to 'Annex/Content.hs')
| -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 |