From 22a9389bc7d5ad776b9155d063ecfcf8286d8fe1 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 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 -- cgit v1.2.3