diff options
author | Joey Hess <joey@kitenet.net> | 2011-07-19 14:07:23 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-07-19 14:07:23 -0400 |
commit | 00153eed48a2328969cc08688ef674a4c19c2014 (patch) | |
tree | f2ee8ac90225d1d2329f45b43061b53b7757d815 /Command/Unused.hs | |
parent | ec9e9343d9fa99b0786ee93ff142484e2402d3c8 (diff) |
unify elipsis handling
And add a simple dots-based progress display, currently only used in v2
upgrade.
Diffstat (limited to 'Command/Unused.hs')
-rw-r--r-- | Command/Unused.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Unused.hs b/Command/Unused.hs index 870c993f1..e7065b3c3 100644 --- a/Command/Unused.hs +++ b/Command/Unused.hs @@ -68,7 +68,7 @@ checkRemoteUnused name = do checkRemoteUnused' :: Remote.Remote Annex -> Annex () checkRemoteUnused' r = do - showNote "checking for unused data..." + showAction "checking for unused data" referenced <- getKeysReferenced remotehas <- filterM isthere =<< loggedKeys let remoteunused = remotehas `exclude` referenced @@ -152,7 +152,7 @@ unusedKeys = do bad <- staleKeys gitAnnexBadDir return ([], bad, tmp) else do - showNote "checking for unused data..." + showAction "checking for unused data" present <- getKeysPresent referenced <- getKeysReferenced let unused = present `exclude` referenced |