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/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 ++ ")"