From 47c7cd08324d62e5660bab77bafc80c5ddb54655 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 24 Oct 2015 14:49:08 -0400 Subject: simplift --- src/Propellor/Engine.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/Propellor/Engine.hs b/src/Propellor/Engine.hs index 8c1d09c6..a811724a 100644 --- a/src/Propellor/Engine.hs +++ b/src/Propellor/Engine.hs @@ -55,7 +55,7 @@ mainProperties host = do -- are then also run. runPropellor :: Host -> Propellor Result -> IO Result runPropellor host a = do - (res, _s, endactions) <- runRWST (runWithHost a) host () + (res, endactions) <- evalRWST (runWithHost a) host () endres <- mapM (runEndAction host res) endactions return $ mconcat (res:endres) -- cgit v1.2.3