diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-11-30 13:21:19 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-11-30 13:21:19 -0400 |
commit | 22a9389bc7d5ad776b9155d063ecfcf8286d8fe1 (patch) | |
tree | aab316b432e58092c7c5876f017dcde0a73752ba /Annex | |
parent | 31b4d7c6d0ea020419d54752fcc3daae79e1c6ea (diff) |
fix build
Diffstat (limited to 'Annex')
-rw-r--r-- | Annex/YoutubeDl.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Annex/YoutubeDl.hs b/Annex/YoutubeDl.hs index 65981e0df1..18e363eb58 100644 --- a/Annex/YoutubeDl.hs +++ b/Annex/YoutubeDl.hs @@ -84,5 +84,5 @@ youtubeDlTo key url dest = do youtubeDlSupported :: URLString -> Annex (Either String Bool) youtubeDlSupported url = catchMsgIO $ do opts <- map Param . annexYoutubeDlOptions <$> Annex.getGitConfig - let opts' = opts ++ [ url, "--simulate" ] - liftIO $ snd <$> processTranscript "youtube-dl" opts' Nothing + let opts' = opts ++ [ Param url, Param "--simulate" ] + liftIO $ snd <$> processTranscript "youtube-dl" (toCommand opts') Nothing |