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
|
@ -16,7 +16,6 @@ import Utility.Rsync
|
|||
import Annex.Transfer
|
||||
import qualified CmdLine.GitAnnexShell.Fields as Fields
|
||||
import Utility.Metered
|
||||
import Utility.Debug
|
||||
|
||||
cmd :: Command
|
||||
cmd = noCommit $
|
||||
|
@ -46,14 +45,14 @@ start (_, key) = do
|
|||
|
||||
fieldTransfer :: Direction -> Key -> (MeterUpdate -> Annex Bool) -> CommandStart
|
||||
fieldTransfer direction key a = do
|
||||
liftIO $ debug "Command.SendKey" "transfer start"
|
||||
fastDebug "Command.SendKey" "transfer start"
|
||||
afile <- AssociatedFile . (fmap toRawFilePath)
|
||||
<$> Fields.getField Fields.associatedFile
|
||||
ok <- maybe (a $ const noop)
|
||||
-- Using noRetry here because we're the sender.
|
||||
(\u -> runner (Transfer direction (toUUID u) (fromKey id key)) afile Nothing noRetry a)
|
||||
=<< Fields.getField Fields.remoteUUID
|
||||
liftIO $ debug "Command.SendKey" "transfer done"
|
||||
fastDebug "Command.SendKey" "transfer done"
|
||||
liftIO $ exitBool ok
|
||||
where
|
||||
{- Allow the key to be sent to the remote even if there seems to be
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue