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

Fix support for file:// remotes.

Browse source
This commit is contained in:
Joey Hess 2010-10-28 13:47:10 -04:00
parent 3e02977814
commit 5c2c652d7d
2 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
GitRepo.hs
View file

@ -79,7 +79,10 @@ repoFromPath dir = newFrom $ Dir dir
{- Remote Repo constructor. Throws exception on invalid url. -}
repoFromUrl :: String -> Repo
repoFromUrl url = newFrom $ Url $ fromJust $ parseURI url
repoFromUrl url
| startswith "file://" url = repoFromPath $ uriPath u
| otherwise = newFrom $ Url u
where u = fromJust $ parseURI url
{- User-visible description of a git repo. -}
repoDescribe Repo { remoteName = Just name } = name