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

improve GitRepos functions for pulling apart URL to repo

Browse source
This commit is contained in:
Joey Hess 2011-03-05 15:13:16 -04:00
parent 5c4f90b2d0
commit acde7a1736
3 changed files with 36 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Command/Map.hs
View file

@ -161,7 +161,7 @@ absRepo reference r
{- Checks if two repos are the same. -}
same :: Git.Repo -> Git.Repo -> Bool
same a b
| both Git.repoIsSsh = matching Git.urlHostFull && matching Git.workTree
| both Git.repoIsSsh = matching Git.urlAuthority && matching Git.workTree
| both Git.repoIsUrl && neither Git.repoIsSsh = matching show
| neither Git.repoIsSsh = matching Git.workTree
| otherwise = False
@ -210,7 +210,7 @@ tryScan r
"git config --list"
liftIO $ pipedconfig "ssh" $ map Param $
words sshoptions ++
[Git.urlHostFull r, sshcmd]
[Git.urlAuthority r, sshcmd]
-- First, try sshing and running git config manually,
-- only fall back to git-annex-shell configlist if that