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

show a side action when finding known urls

Browse source
This commit is contained in:
Joey Hess 2013-07-28 17:19:21 -04:00
parent 10f297d989
commit 66dfeaff44
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Command/ImportFeed.hs
View file

@ -67,7 +67,9 @@ start relaxed opttemplate = go Nothing
{- This is expensive, so avoid running it more than once. -} {- This is expensive, so avoid running it more than once. -}
getknownurls (Just cached) = return cached getknownurls (Just cached) = return cached
getknownurls Nothing = S.fromList <$> knownUrls getknownurls Nothing = do
showSideAction "checking known urls"
S.fromList <$> knownUrls
findEnclosures :: URLString -> Annex (Maybe [ToDownload]) findEnclosures :: URLString -> Annex (Maybe [ToDownload])
findEnclosures url = go =<< downloadFeed url findEnclosures url = go =<< downloadFeed url