summaryrefslogtreecommitdiff
path: root/Propellor/Engine.hs
diff options
context:
space:
mode:
authorJoey Hess2014-03-31 10:36:45 -0400
committerJoey Hess2014-03-31 10:36:45 -0400
commit9b65d9650404d8b7202fc63ba23554d734589f20 (patch)
treef19d1e948823bcae4de99a52baac5b1ad8781b8a /Propellor/Engine.hs
parentf9536060e86971f37f337132de9a4a0ed327e727 (diff)
monoid
Diffstat (limited to 'Propellor/Engine.hs')
-rw-r--r--Propellor/Engine.hs3
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