mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

use fastDebug everywhere it can be used

Browse source 
None of these are likely to yeild a noticable speedup though.
This commit is contained in:
Joey Hess 2021-04-06 15:41:24 -04:00
parent d16d739ce2
commit 13c090b37a
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
16 changed files with 17 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Command/Drop.hs
View file

@ -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:"

3
Command/ImportFeed.hs
View file

@ -49,7 +49,6 @@ import qualified Git.Ref
import qualified Annex.Branch
import Logs
import Git.CatFile (catObjectStream)
import Utility.Debug
cmd :: Command
cmd = notBareRepo $
@ -96,7 +95,7 @@ getFeed addunlockedmatcher opts cache url = do
)
where
debugfeedcontent feedcontent msg = do
liftIO $ debug "Command.ImportFeed" $ unlines
fastDebug "Command.ImportFeed" $ unlines
[ "start of feed content"
, feedcontent
, "end of feed content"

5
Command/Move.hs
View file

@ -20,7 +20,6 @@ import Logs.Presence
import Logs.Trust
import Logs.File
import Annex.NumCopies
import Utility.Debug
import qualified Data.ByteString.Char8 as B8
import qualified Data.ByteString.Lazy as L
@ -177,7 +176,7 @@ toPerform dest removewhen key afile fastcheck isthere = do
DropWorse -> faileddrophere setpresentremote
showproof proof = "proof: " ++ show proof
drophere setpresentremote contentlock reason = do
liftIO $ debug "Command.Move" $ unwords
fastDebug "Command.Move" $ unwords
[ "Dropping from here"
, "(" ++ reason ++ ")"
]
@ -257,7 +256,7 @@ fromPerform src removewhen key afile = do
showproof proof = "proof: " ++ show proof
dropremote reason = do
liftIO $ debug "Command.Move" $ unwords
fastDebug "Command.Move" $ unwords
[ "Dropping from remote"
, show src
, "(" ++ reason ++ ")"

5
Command/SendKey.hs
View file

@ -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