unify elipsis handling

And add a simple dots-based progress display, currently only used in v2
upgrade.
This commit is contained in:
Joey Hess 2011-07-19 14:07:23 -04:00
parent ec9e9343d9
commit 00153eed48
22 changed files with 76 additions and 62 deletions

View file

@ -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