avoid reading configs for URL remotes every time

This commit is contained in:
Joey Hess 2010-10-22 14:28:47 -04:00
parent 46ac66a438
commit 9ec5d90b6a
4 changed files with 50 additions and 22 deletions

View file

@ -79,7 +79,7 @@ copyKeyFile key file = do
{- Tries to copy a file from a remote. -}
copyFromRemote :: Git.Repo -> Key -> FilePath -> IO Bool
copyFromRemote r key file = do
if (Git.repoIsLocal r)
if (not $ Git.repoIsUrl r)
then getlocal
else if (Git.repoIsSsh r)
then getssh