diff options
| -rw-r--r-- | Property.hs | 7 |
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) |