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

23
Command/ImportFeed.hs
View file

@ -134,18 +134,19 @@ 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
mp <- withQuviOptions Quvi.query [Quvi.quiet, Quvi.httponly] pageurl let quviurl = setDownloader pageurl QuviDownloader
case mp of checkknown quviurl $ do
Nothing -> return False mp <- withQuviOptions Quvi.query [Quvi.quiet, Quvi.httponly] pageurl
Just page -> case headMaybe $ Quvi.pageLinks page of case mp of
Nothing -> return False Nothing -> return False
Just link -> do Just page -> case headMaybe $ Quvi.pageLinks page of
let quviurl = setDownloader pageurl QuviDownloader Nothing -> return False
let videourl = Quvi.linkUrl link Just link -> do
checkknown videourl $ let videourl = Quvi.linkUrl link
rundownload videourl ("." ++ Quvi.linkSuffix link) $ checkknown videourl $
addUrlFileQuvi relaxed quviurl videourl rundownload videourl ("." ++ Quvi.linkSuffix link) $
addUrlFileQuvi relaxed quviurl videourl
where where
forced = Annex.getState Annex.force forced = Annex.getState Annex.force