mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix form of quvi url

Browse source
This commit is contained in:
Joey Hess 2014-01-05 13:35:14 -04:00
parent 3e6db588a7
commit 964f5d080e
1 changed files with 12 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Command/ImportFeed.hs
View file

@ -134,14 +134,15 @@ performDownload relaxed cache todownload = case location todownload of
Enclosure url -> checkknown url $ Enclosure url -> checkknown url $
rundownload url (takeExtension url) $ rundownload url (takeExtension url) $
addUrlFile relaxed url addUrlFile relaxed url
QuviLink pageurl -> checkknown pageurl $ do QuviLink pageurl -> do
let quviurl = setDownloader pageurl QuviDownloader
checkknown quviurl $ do
mp <- withQuviOptions Quvi.query [Quvi.quiet, Quvi.httponly] pageurl mp <- withQuviOptions Quvi.query [Quvi.quiet, Quvi.httponly] pageurl
case mp of case mp of
Nothing -> return False Nothing -> return False
Just page -> case headMaybe $ Quvi.pageLinks page of Just page -> case headMaybe $ Quvi.pageLinks page of
Nothing -> return False Nothing -> return False
Just link -> do Just link -> do
let quviurl = setDownloader pageurl QuviDownloader
let videourl = Quvi.linkUrl link let videourl = Quvi.linkUrl link
checkknown videourl $ checkknown videourl $
rundownload videourl ("." ++ Quvi.linkSuffix link) $ rundownload videourl ("." ++ Quvi.linkSuffix link) $