diff options
Diffstat (limited to 'BackendUrl.hs')
-rw-r--r-- | BackendUrl.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/BackendUrl.hs b/BackendUrl.hs index 3f0846885..5b586497c 100644 --- a/BackendUrl.hs +++ b/BackendUrl.hs @@ -27,8 +27,8 @@ 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] + putStrLn $ "download: " ++ (show url) + result <- try $ rawSystem "curl" ["-#", "-o", file, (show url)] case (result) of Left _ -> return False Right _ -> return True |