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

improve display of checking known urls

Browse source 
Display it as a separate action, so it ends with a newline
This commit is contained in:
Joey Hess 2017-02-28 14:41:08 -04:00
parent a62802af08
commit ddf68b7c48
No known key found for this signature in database
GPG key ID: C910D9222512E3C7
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Command/ImportFeed.hs
View file

@ -112,8 +112,9 @@ getCache :: Maybe String -> Annex Cache
getCache opttemplate = ifM (Annex.getState Annex.force) getCache opttemplate = ifM (Annex.getState Annex.force)
( ret S.empty S.empty ( ret S.empty S.empty
, do , do
showAction "checking known urls" showStart "importfeed" "checking known urls"
(is, us) <- unzip <$> (mapM knownItems =<< knownUrls) (is, us) <- unzip <$> (mapM knownItems =<< knownUrls)
showEndOk
ret (S.fromList us) (S.fromList (concat is)) ret (S.fromList us) (S.fromList (concat is))
) )
where where