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 /Remote/Git.hs | |
| parent | ec9e9343d9fa99b0786ee93ff142484e2402d3c8 (diff) | |
unify elipsis handling
And add a simple dots-based progress display, currently only used in v2
upgrade.
Diffstat (limited to 'Remote/Git.hs')
| -rw-r--r-- | Remote/Git.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Remote/Git.hs b/Remote/Git.hs index 1f22ad11c..de51c891e 100644 --- a/Remote/Git.hs +++ b/Remote/Git.hs @@ -115,7 +115,7 @@ inAnnex r key = if Git.repoIsUrl r a <- Annex.new r Annex.eval a (Content.inAnnex key) checkremote = do - showNote ("checking " ++ Git.repoDescribe r ++ "...") + showAction $ "checking " ++ Git.repoDescribe r inannex <- onRemote r (boolSystem, False) "inannex" [Param (show key)] return $ Right inannex @@ -156,7 +156,7 @@ copyToRemote r key rsyncHelper :: [CommandParam] -> Annex Bool rsyncHelper p = do - showProgress -- make way for progress bar + showOutput -- make way for progress bar res <- liftIO $ rsync p if res then return res |