diff options
| author | Joey Hess <joey@kitenet.net> | 2014-03-31 10:36:45 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-03-31 10:36:45 -0400 |
| commit | 9b65d9650404d8b7202fc63ba23554d734589f20 (patch) | |
| tree | f19d1e948823bcae4de99a52baac5b1ad8781b8a /Propellor/Engine.hs | |
| parent | f9536060e86971f37f337132de9a4a0ed327e727 (diff) | |
monoid
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 |