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

avoid unneccesary extra blank line before git-credentials prompt

Browse source
This commit is contained in:
Joey Hess 2019-09-24 18:06:10 -04:00
parent bc1b9a2c0a
commit a6c3d1cb6d
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Remote/GitLFS.hs
View file

@ -237,9 +237,7 @@ discoverLFSEndpoint tro h
resp <- makeSmallAPIRequest testreq resp <- makeSmallAPIRequest testreq
if needauth (responseStatus resp) if needauth (responseStatus resp)
then do then do
cred <- prompt $ do cred <- prompt $ inRepo $ Git.getUrlCredential (show lfsrepouri)
showOutput
inRepo $ Git.getUrlCredential (show lfsrepouri)
let endpoint' = addbasicauth cred endpoint let endpoint' = addbasicauth cred endpoint
let testreq' = LFS.startTransferRequest endpoint' transfernothing let testreq' = LFS.startTransferRequest endpoint' transfernothing
flip catchNonAsync (const (returnendpoint endpoint')) $ do flip catchNonAsync (const (returnendpoint endpoint')) $ do