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/Map.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/Map.hs')
| -rw-r--r-- | Command/Map.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Command/Map.hs b/Command/Map.hs index 557ae2787..07f127f14 100644 --- a/Command/Map.hs +++ b/Command/Map.hs @@ -44,7 +44,7 @@ start = do liftIO $ writeFile file (drawMap rs umap trusted) showLongNote $ "running: dot -Tx11 " ++ file - showProgress + showOutput r <- liftIO $ boolSystem "dot" [Param "-Tx11", File file] next $ next $ return r where @@ -176,7 +176,7 @@ scan r = do showEndOk return r' Nothing -> do - showProgress + showOutput showEndFail return r @@ -224,5 +224,5 @@ tryScan r ok -> return ok sshnote = do - showNote "sshing..." - showProgress + showAction "sshing" + showOutput |