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 /Backend | |
| parent | ec9e9343d9fa99b0786ee93ff142484e2402d3c8 (diff) | |
unify elipsis handling
And add a simple dots-based progress display, currently only used in v2
upgrade.
Diffstat (limited to 'Backend')
| -rw-r--r-- | Backend/SHA.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Backend/SHA.hs b/Backend/SHA.hs index dc27b3000..c1d713648 100644 --- a/Backend/SHA.hs +++ b/Backend/SHA.hs @@ -72,7 +72,7 @@ shaNameE size = shaName size ++ "E" shaN :: SHASize -> FilePath -> Annex String shaN size file = do - showNote "checksum..." + showAction "checksum" liftIO $ pOpen ReadFromPipe command (toCommand [File file]) $ \h -> do line <- hGetLine h let bits = split " " line |