diff options
Diffstat (limited to 'Property.hs')
| -rw-r--r-- | Property.hs | 4 |
1 files changed, 1 insertions, 3 deletions
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] |