diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-02-25 01:13:01 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-02-25 01:13:01 -0400 |
| commit | 836e71297b8e3b5bd6f89f7eb1198f59af985b0b (patch) | |
| tree | 835db9db776b23552736422baf9794eb6a3ac5e5 /Backend/URL.hs | |
| parent | e61b47bc8a51447f9fbde6463e09d4beef8d5a7f (diff) | |
Support filenames that start with a dash; when such a file is passed to a utility it will be escaped to avoid it being interpreted as an option.
Diffstat (limited to 'Backend/URL.hs')
| -rw-r--r-- | Backend/URL.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Backend/URL.hs b/Backend/URL.hs index 38954e5a3..15cc88d64 100644 --- a/Backend/URL.hs +++ b/Backend/URL.hs @@ -51,6 +51,6 @@ downloadUrl :: Key -> FilePath -> Annex Bool downloadUrl key file = do showNote "downloading" showProgress -- make way for curl progress bar - liftIO $ boolSystem "curl" ["-#", "-o", file, url] + liftIO $ boolSystem "curl" ["-#", "-o", utilityEscape file, url] where url = join ":" $ drop 1 $ split ":" $ show key |