This commit is contained in:
Joey Hess 2015-04-09 12:57:30 -04:00
parent 84dc5629c6
commit c65e71e6a5

View file

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