From 5ff33723613ce9f53b63df50274c6bd469c1e052 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 30 Nov 2017 13:21:19 -0400 Subject: fix build --- Annex/YoutubeDl.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Annex') diff --git a/Annex/YoutubeDl.hs b/Annex/YoutubeDl.hs index 65981e0df..18e363eb5 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 -- cgit v1.2.3