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