use fastDebug everywhere it can be used

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

View file

@ -59,8 +59,8 @@ git_annex_shell cs r command params fields
dir = Git.repoPath r
shellcmd = "git-annex-shell"
getshellopts = do
debug <- annexDebug <$> Annex.getGitConfig
let params' = if debug
debugenabled <- annexDebug <$> Annex.getGitConfig
let params' = if debugenabled
then Param "--debug" : params
else params
return (Param command : File (fromRawFilePath dir) : params')