diff options
| author |  Joey Hess <joey@kitenet.net> | 2010-10-28 13:47:10 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2010-10-28 13:47:10 -0400 |
| commit | 5c2c652d7dd6346990143f10f9a7d520496cc871 (patch) | |
| tree | 17df6e83b6e4ffce05419e4555338bf22645ff3e /GitRepo.hs | |
| parent | 3e02977814e77b47e4db020e9b0dedadad1b6e7e (diff) | |
Fix support for file:// remotes.
Diffstat (limited to 'GitRepo.hs')
| -rw-r--r-- | GitRepo.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/GitRepo.hs b/GitRepo.hs index cd2c80691..fd69ec21a 100644 --- a/GitRepo.hs +++ b/GitRepo.hs @@ -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 |