unify elipsis handling
And add a simple dots-based progress display, currently only used in v2 upgrade.
This commit is contained in:
parent
ec9e9343d9
commit
00153eed48
22 changed files with 76 additions and 62 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue