diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-11-28 17:17:40 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-11-28 17:17:40 -0400 |
commit | 3febb79c8f187fd520ff2036f4bf8f6475c11422 (patch) | |
tree | e2d792baae75adb67aa4535f3b6234b2f4ee84b6 /Logs | |
parent | 53f91bddfa59d8d7211666d5f6dc22a12965c4f1 (diff) |
wip
Diffstat (limited to 'Logs')
-rw-r--r-- | Logs/Web.hs | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/Logs/Web.hs b/Logs/Web.hs index ba71cb17dc..abea00db69 100644 --- a/Logs/Web.hs +++ b/Logs/Web.hs @@ -100,15 +100,15 @@ removeTempUrl :: Key -> Annex () removeTempUrl key = Annex.changeState $ \s -> s { Annex.tempurls = M.delete key (Annex.tempurls s) } -data Downloader = WebDownloader | QuviDownloader | OtherDownloader +data Downloader = WebDownloader | YoutubeDownloader | QuviDownloader | OtherDownloader deriving (Eq, Show) {- To keep track of how an url is downloaded, it's mangled slightly in - - the log. For quvi, "quvi:" is prefixed. For urls that are handled by - - some other remote, ":" is prefixed. -} + - the log, with a prefix indicating when a Downloader is used. -} setDownloader :: URLString -> Downloader -> String setDownloader u WebDownloader = u setDownloader u QuviDownloader = "quvi:" ++ u +setDownloader u YoutubeDownloader = "yt:" ++ u setDownloader u OtherDownloader = ":" ++ u setDownloader' :: URLString -> Remote -> String @@ -118,6 +118,9 @@ setDownloader' u r getDownloader :: URLString -> (URLString, Downloader) getDownloader u = case separate (== ':') u of - ("quvi", u') -> (u', QuviDownloader) + ("yt", u') -> (u', YoutubeDownloader) + -- quvi is not used any longer; youtube-dl should be able to handle + -- all urls it did. + ("quvi", u') -> (u', YoutubeDownloader) ("", u') -> (u', OtherDownloader) _ -> (u, WebDownloader) |