show a side action when finding known urls

This commit is contained in:
Joey Hess 2013-07-28 17:19:21 -04:00
parent 10f297d989
commit 66dfeaff44

View file

@ -67,7 +67,9 @@ start relaxed opttemplate = go Nothing
{- This is expensive, so avoid running it more than once. -}
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 url = go =<< downloadFeed url