diff options
author | 2010-10-12 17:51:41 -0400 | |
---|---|---|
committer | 2010-10-12 17:51:41 -0400 | |
commit | 3d2b44ffe58ddc2f235f71cb548ba4a43b6fe641 (patch) | |
tree | 61003b8124ab812a8a7f8ed5610678fae47d3f2c /BackendUrl.hs | |
parent | 0561ea1b2873962199aca5ba6529254aa5b2632b (diff) |
better progress
Diffstat (limited to 'BackendUrl.hs')
-rw-r--r-- | BackendUrl.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/BackendUrl.hs b/BackendUrl.hs index f18c800e9..3f0846885 100644 --- a/BackendUrl.hs +++ b/BackendUrl.hs @@ -28,7 +28,7 @@ dummyRemove state url = return False downloadUrl :: State -> Key -> FilePath -> IO Bool downloadUrl state url file = do putStrLn $ "download: " ++ url - result <- try $ rawSystem "curl" ["-o", file, url] + result <- try $ rawSystem "curl" ["-#", "-o", file, url] case (result) of Left _ -> return False Right _ -> return True |