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
Remote/GitLFS.hs
View file

@ -39,7 +39,6 @@ import Backend.Hash
import Utility.Hash
import Utility.SshHost
import Utility.Url
import Utility.Debug
import Logs.Remote
import Logs.RemoteState
import qualified Git.Config
@ -349,11 +348,11 @@ makeSmallAPIRequest :: Request -> Annex (Response L.ByteString)
makeSmallAPIRequest req = do
uo <- getUrlOptions
let req' = applyRequest uo req
liftIO $ debug "Remote.GitLFS" (show req')
fastDebug "Remote.GitLFS" (show req')
resp <- liftIO $ httpLbs req' (httpManager uo)
-- Only debug the http status code, not the json
-- which may include an authentication token.
liftIO $ debug "Remote.GitLFS" (show $ responseStatus resp)
fastDebug "Remote.GitLFS" (show $ responseStatus resp)
return resp
sendTransferRequest