diff options
author | Joey Hess <joey@kitenet.net> | 2010-10-13 02:31:24 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2010-10-13 02:31:24 -0400 |
commit | d1071bd1fe879abb3ebb229f9347f7855a697b8c (patch) | |
tree | db9df662b58f2b0762252f4d22b5cb244c8be978 /BackendUrl.hs | |
parent | 490a3a828cbb5a4046178b36fc0f9fe0696d0e9d (diff) |
autobugfixing!
Converted Key to a real data type and caught all the places where I used
an unconverted filename as a key.
Had to loose some sanity checks around whether something is already
annexed, but I guess I can add those back other ways.
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 |