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 | 5ff33723613ce9f53b63df50274c6bd469c1e052 (patch) | |
tree | 9c1083657a5938e9e4188cb044ede026130a3747 /Annex | |
parent | 3de20e31b070a7272a0181d17c4dcc703ba822b7 (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 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 |