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

cleanup

Browse source
This commit is contained in:
Joey Hess 2015-04-09 12:57:30 -04:00
parent 84dc5629c6
commit c65e71e6a5
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Utility/Url.hs
View file

@ -208,8 +208,7 @@ download' :: Bool -> URLString -> FilePath -> UrlOptions -> IO Bool
download' quiet url file uo = do download' quiet url file uo = do
case parseURIRelaxed url of case parseURIRelaxed url of
Just u Just u
| uriScheme u == "file:" -> do | uriScheme u == "file:" -> curl
curl
| otherwise -> ifM (inPath "wget") (wget , curl) | otherwise -> ifM (inPath "wget") (wget , curl)
_ -> return False _ -> return False
where where