From 3368bdd0a18a58f10fbec8880562ad63b85bcfd5 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 30 Mar 2014 00:28:56 -0400 Subject: improvements --- Property.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'Property.hs') diff --git a/Property.hs b/Property.hs index ded40c4b..3243d278 100644 --- a/Property.hs +++ b/Property.hs @@ -5,7 +5,6 @@ import Control.Applicative import Control.Monad import System.Console.ANSI import System.Exit -import System.IO import Utility.Tmp import Utility.Exception @@ -75,9 +74,8 @@ ensureProperties ps = do where ensure [] rs = return rs ensure (l:ls) rs = do - putStr $ propertyDesc l ++ "... " - hFlush stdout r <- ensureProperty l + putStr $ propertyDesc l ++ "... " case r of FailedChange -> do setSGR [SetColor Foreground Vivid Red] -- cgit v1.2.3