From 66dfeaff441c67e08367ce6a1155027437562399 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 28 Jul 2013 17:19:21 -0400 Subject: [PATCH] show a side action when finding known urls --- Command/ImportFeed.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Command/ImportFeed.hs b/Command/ImportFeed.hs index a4a5cfd4cf..d919a96266 100644 --- a/Command/ImportFeed.hs +++ b/Command/ImportFeed.hs @@ -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