From 9b65d9650404d8b7202fc63ba23554d734589f20 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 31 Mar 2014 10:36:45 -0400 Subject: monoid --- Propellor/Engine.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Propellor/Engine.hs') 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 -- cgit v1.2.3