diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-04-10 12:45:42 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-04-10 12:45:42 -0400 |
| commit | 945f545d568a4ce5a53736dc3253754af1fafce7 (patch) | |
| tree | 50d971bc69b8059497225341a4bf9f760a4a3a82 /Utility/Url.hs | |
| parent | b2cb9c7f0f5b713fe9abdfe29eabf6bb82e7b2b1 (diff) | |
| parent | efd2eaa1cfbefd25778519361121a386a9f40af7 (diff) | |
Merge branch 'master' into concurrentprogress
Diffstat (limited to 'Utility/Url.hs')
| -rw-r--r-- | Utility/Url.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Utility/Url.hs b/Utility/Url.hs index 0ecc195d5..1b0c394b7 100644 --- a/Utility/Url.hs +++ b/Utility/Url.hs @@ -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 |