summaryrefslogtreecommitdiff
path: root/Command/Drop.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2015-10-09 15:59:42 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2015-10-09 15:59:42 -0400
commite3eb0165dfec73d065b409d14ac83f855384b56b (patch)
tree5babf7cc23722e2436882355f4d5437a40f3a81e /Command/Drop.hs
parent3c43af79d56a25bfff3eae1c1342c9a308223347 (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.hs6
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