Pass -f to curl when downloading a file with it, so it propigates failure.

This commit is contained in:
Joey Hess 2013-07-06 00:55:00 -04:00
parent 698307518e
commit 79e1a0c571
2 changed files with 3 additions and 1 deletions

View file

@ -116,7 +116,8 @@ download' quiet url headers options file =
- the remainder to download as the whole file,
- and not indicating how much percent was
- downloaded before the resume. -}
curl = go "curl" $ headerparams ++ quietopt "-s" ++ [Params "-L -C - -# -o"]
curl = go "curl" $ headerparams ++ quietopt "-s" ++
[Params "-f -L -C - -# -o"]
go cmd opts = boolSystem cmd $
options++opts++[File file, File url]
quietopt s