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

convert git config reading to use hGetLineUntilExitOrEOF

Browse source 
Much nicer than the old hack of waiting for a few seconds for stderr to be read.
This commit is contained in:
Joey Hess 2020-11-19 15:34:26 -04:00
parent 04dca96710
commit 66497d39b3
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 10 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Remote/GCrypt.hs
View file

@ -487,7 +487,7 @@ getGCryptId fast r gc
extract Nothing = (Nothing, r)
extract (Just r') = (fromConfigValue <$> Git.Config.getMaybe coreGCryptId r', r')
getConfigViaRsync :: Git.Repo -> RemoteGitConfig -> Annex (Either SomeException (Git.Repo, S.ByteString, S.ByteString))
getConfigViaRsync :: Git.Repo -> RemoteGitConfig -> Annex (Either SomeException (Git.Repo, S.ByteString, String))
getConfigViaRsync r gc = do
(rsynctransport, rsyncurl, _) <- rsyncTransport r gc
opts <- rsynctransport