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

avoid unnecessary monad

Browse source
This commit is contained in:
Joey Hess 2018-12-30 15:59:15 -04:00
parent 84e71dae2e
commit f943138508
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
Command/ImportFeed.hs
View file

@ -129,19 +129,19 @@ knownItems (k, u) = do
return (itemids, u)
findDownloads :: URLString -> Annex [ToDownload]
findDownloads u = go =<< downloadFeed u
findDownloads u = go <$> downloadFeed u
where
go Nothing = pure []
go (Just f) = catMaybes <$> mapM (mk f) (feedItems f)
go Nothing = []
go (Just f) = catMaybes $ map (mk f) (feedItems f)
mk f i = case getItemEnclosure i of
Just (enclosureurl, _, _) -> return $
Just (enclosureurl, _, _) ->
Just $ ToDownload f u i $ Enclosure $
fromFeed enclosureurl
Nothing -> case getItemLink i of
Just link -> return $ Just $ ToDownload f u i $
Just link -> Just $ ToDownload f u i $
MediaLink $ fromFeed link
Nothing -> return Nothing
Nothing -> Nothing
{- Feeds change, so a feed download cannot be resumed. -}
downloadFeed :: URLString -> Annex (Maybe Feed)