diff options
| author | Joey Hess <joey@kitenet.net> | 2014-03-30 00:28:56 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-03-30 00:28:56 -0400 |
| commit | 3368bdd0a18a58f10fbec8880562ad63b85bcfd5 (patch) | |
| tree | ecc22f01c33c19a5bdb1a0b09a3244c2973f75ca /Property.hs | |
| parent | c1ad516a6c85d5fc7733151bcae07495e69319ea (diff) | |
improvements
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] |