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

add repoIsHttp

Browse source
This commit is contained in:
Joey Hess 2011-08-16 19:23:56 -04:00
parent c04f1f4c30
commit cfcd7805b4
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Git.hs
View file

@ -17,6 +17,7 @@ module Git (
localToUrl, localToUrl,
repoIsUrl, repoIsUrl,
repoIsSsh, repoIsSsh,
repoIsHttp,
repoIsLocalBare, repoIsLocalBare,
repoDescribe, repoDescribe,
repoLocation, repoLocation,
@ -206,6 +207,13 @@ repoIsSsh Repo { location = Url url }
| otherwise = False | otherwise = False
repoIsSsh _ = False repoIsSsh _ = False
repoIsHttp :: Repo -> Bool
repoIsHttp Repo { location = Url url }
| uriScheme url == "http:" = True
| uriScheme url == "https:" = True
| otherwise = False
repoIsHttp _ = False
configAvail ::Repo -> Bool configAvail ::Repo -> Bool
configAvail Repo { config = c } = c /= M.empty configAvail Repo { config = c } = c /= M.empty