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

add missing quvi ifdef

Browse source
This commit is contained in:
Joey Hess 2014-12-11 13:12:52 -04:00
parent 85df9c30e9
commit 30685751ea
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Command/ImportFeed.hs
View file

@ -140,6 +140,7 @@ performDownload relaxed cache todownload = case location todownload of
rundownload url (takeExtension url) $ rundownload url (takeExtension url) $
addUrlFile relaxed url addUrlFile relaxed url
QuviLink pageurl -> do QuviLink pageurl -> do
#ifdef WITH_QUVI
let quviurl = setDownloader pageurl QuviDownloader let quviurl = setDownloader pageurl QuviDownloader
checkknown quviurl $ do checkknown quviurl $ do
mp <- withQuviOptions Quvi.query [Quvi.quiet, Quvi.httponly] pageurl mp <- withQuviOptions Quvi.query [Quvi.quiet, Quvi.httponly] pageurl
@ -152,6 +153,9 @@ performDownload relaxed cache todownload = case location todownload of
checkknown videourl $ checkknown videourl $
rundownload videourl ("." ++ Quvi.linkSuffix link) $ rundownload videourl ("." ++ Quvi.linkSuffix link) $
addUrlFileQuvi relaxed quviurl videourl addUrlFileQuvi relaxed quviurl videourl
#else
return False
#endif
where where
forced = Annex.getState Annex.force forced = Annex.getState Annex.force