diff options
Diffstat (limited to 'Propellor/Engine.hs')
| -rw-r--r-- | Propellor/Engine.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Propellor/Engine.hs b/Propellor/Engine.hs index 22091938..a220ec77 100644 --- a/Propellor/Engine.hs +++ b/Propellor/Engine.hs @@ -3,6 +3,7 @@ module Propellor.Engine where import System.Console.ANSI import System.Exit import System.IO +import Data.Monoid import Propellor.Types import Utility.Exception @@ -42,7 +43,7 @@ ensureProperties' ps = ensure ps NoChange putStrLn "done" setSGR [] hFlush stdout - ensure ls (combineResult r rs) + ensure ls (r <> rs) warningMessage :: String -> IO () warningMessage s = do |