use fastDebug everywhere it can be used
None of these are likely to yeild a noticable speedup though.
This commit is contained in:
parent
d16d739ce2
commit
13c090b37a
16 changed files with 17 additions and 28 deletions
|
@ -20,7 +20,6 @@ import Annex.NumCopies
|
|||
import Annex.Content
|
||||
import Annex.Wanted
|
||||
import Annex.Notification
|
||||
import Utility.Debug
|
||||
|
||||
import qualified Data.Set as S
|
||||
|
||||
|
@ -115,7 +114,7 @@ performLocal key afile numcopies mincopies preverified = lockContentForRemoval k
|
|||
(tocheck, verified) <- verifiableCopies key [u]
|
||||
doDrop u (Just contentlock) key afile numcopies mincopies [] (preverified ++ verified) tocheck
|
||||
( \proof -> do
|
||||
liftIO $ debug "Command.Drop" $ unwords
|
||||
fastDebug "Command.Drop" $ unwords
|
||||
[ "Dropping from here"
|
||||
, "proof:"
|
||||
, show proof
|
||||
|
@ -142,7 +141,7 @@ performRemote key afile numcopies mincopies remote = do
|
|||
(tocheck, verified) <- verifiableCopies key [uuid]
|
||||
doDrop uuid Nothing key afile numcopies mincopies [uuid] verified tocheck
|
||||
( \proof -> do
|
||||
liftIO $ debug "Command.Drop" $ unwords
|
||||
fastDebug "Command.Drop" $ unwords
|
||||
[ "Dropping from remote"
|
||||
, show remote
|
||||
, "proof:"
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue