honor --file when downloading with youtube-dl

This used to be done with quvi, and got broken in the transition.
This commit is contained in:
Joey Hess 2017-11-30 13:24:52 -04:00
parent 22a9389bc7
commit a7b4358c05
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 14 additions and 11 deletions

View file

@ -170,7 +170,7 @@ performDownload opts cache todownload = case location todownload of
urlinfo <- if relaxedOption opts
then pure Url.assumeUrlExists
else Url.withUrlOptions (Url.getUrlInfo url)
maybeToList <$> addUrlFile (relaxedOption opts) url urlinfo f
maybeToList <$> addUrlFile Nothing (relaxedOption opts) url urlinfo f
else do
res <- tryNonAsync $ maybe
(error $ "unable to checkUrl of " ++ Remote.name r)