From 13431d874cbaa333150e3f3cbf14b4f72062d94a Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 30 Mar 2014 01:24:57 -0400 Subject: better display --- Property.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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) -- cgit v1.2.3