summaryrefslogtreecommitdiff
path: root/Property.hs
diff options
context:
space:
mode:
authorJoey Hess2014-03-30 01:24:57 -0400
committerJoey Hess2014-03-30 01:24:57 -0400
commit13431d874cbaa333150e3f3cbf14b4f72062d94a (patch)
tree66b893f41b3b4eaaafcaeb60b04de7dfc962bc1c /Property.hs
parent713a36f641b991946daf651201ea2a171a239fdc (diff)
better display
Diffstat (limited to 'Property.hs')
-rw-r--r--Property.hs7
1 files changed, 6 insertions, 1 deletions
diff --git a/Property.hs b/Property.hs
index a8d0dffb..6a6bb3b7 100644
--- a/Property.hs
+++ b/Property.hs
@@ -5,6 +5,7 @@ import Control.Applicative
import Control.Monad
import System.Console.ANSI
import System.Exit
+import System.IO
import Utility.Monad
import Utility.Exception
@@ -77,7 +78,11 @@ ensureProperties ps = do
where
ensure [] rs = return rs
ensure (l:ls) rs = do
+ putStr $ propertyDesc l ++ "... "
+ hFlush stdout
r <- ensureProperty l
+ clearFromCursorToLineBeginning
+ setCursorColumn 0
putStr $ propertyDesc l ++ "... "
case r of
FailedChange -> do
@@ -88,7 +93,7 @@ ensureProperties ps = do
putStrLn "unchanged"
MadeChange -> do
setSGR [SetColor Foreground Vivid Green]
- putStrLn "ok"
+ putStrLn "done"
setSGR []
ensure ls (combineResult r rs)