Fix support for file:// remotes.
This commit is contained in:
parent
3e02977814
commit
5c2c652d7d
2 changed files with 10 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue