diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-10-09 15:59:42 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-10-09 15:59:42 -0400 |
| commit | e3eb0165dfec73d065b409d14ac83f855384b56b (patch) | |
| tree | 5babf7cc23722e2436882355f4d5437a40f3a81e /Command/Drop.hs | |
| parent | 3c43af79d56a25bfff3eae1c1342c9a308223347 (diff) | |
tests and verified that the bug is fixed, in all the cases I identified
Diffstat (limited to 'Command/Drop.hs')
| -rw-r--r-- | Command/Drop.hs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/Command/Drop.hs b/Command/Drop.hs index d14cdad18..5bbaf11c6 100644 --- a/Command/Drop.hs +++ b/Command/Drop.hs @@ -20,8 +20,6 @@ import Annex.Content import Annex.Wanted import Annex.Notification -import Utility.ThreadScheduler - import System.Log.Logger (debugM) import qualified Data.Set as S @@ -99,7 +97,7 @@ performLocal key afile numcopies preverified = lockContentForRemoval key $ \cont ( \proof -> do liftIO $ debugM "drop" $ unwords [ "Dropping from here" - , "proof: " + , "proof:" , show proof ] removeAnnex contentlock @@ -125,8 +123,6 @@ performRemote key afile numcopies remote = do , "proof: " , show proof ] - liftIO $ print "waiting to drop.." - liftIO $ threadDelaySeconds (Seconds 10) ok <- Remote.removeKey remote key next $ cleanupRemote key remote ok , stop |