Support remotes using git+ssh and ssh+git as protocol. Closes: #607056

This commit is contained in:
Joey Hess 2010-12-14 12:46:09 -04:00
parent 5ec3cea059
commit 5d4052d0e0
2 changed files with 4 additions and 1 deletions

View file

@ -122,7 +122,9 @@ repoIsUrl _ = False
repoIsSsh :: Repo -> Bool
repoIsSsh Repo { location = Url url }
| uriScheme url == "ssh:" = True
-- git treats these the same as ssh
| uriScheme url == "git+ssh:" = True
| uriScheme url == "ssh+git:" = True
| otherwise = False
repoIsSsh _ = False