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

analysis

Browse source
This commit is contained in:
Joey Hess 2016-12-19 16:28:12 -04:00
parent a13b789d04
commit df5a0059ca
No known key found for this signature in database
GPG key ID: C910D9222512E3C7
2 changed files with 22 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Command/ImportFeed.hs
View file

@ -138,10 +138,12 @@ findDownloads u = go =<< downloadFeed u
Just $ ToDownload f u i $ Enclosure enclosureurl
Nothing -> mkquvi f i
mkquvi f i = case getItemLink i of
Just link -> ifM (quviSupported link)
( return $ Just $ ToDownload f u i $ QuviLink link
, return Nothing
)
Just link -> do
liftIO $ print ("link", link)
ifM (quviSupported link)
( return $ Just $ ToDownload f u i $ QuviLink link
, return Nothing
)
Nothing -> return Nothing
{- Feeds change, so a feed download cannot be resumed. -}