summaryrefslogtreecommitdiff
path: root/src/Propellor/Engine.hs
diff options
context:
space:
mode:
authorJoey Hess2014-12-21 21:14:11 -0400
committerJoey Hess2014-12-21 21:14:11 -0400
commitd194765e10eae7769210f1b1a19c08835d555fed (patch)
treee9bfae34d38a5376b40f4297ad90855c84ed2e00 /src/Propellor/Engine.hs
parent9444326c877d6cf6b25f6750ed9212dbc7c200cd (diff)
propellor spin
Diffstat (limited to 'src/Propellor/Engine.hs')
-rw-r--r--src/Propellor/Engine.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Propellor/Engine.hs b/src/Propellor/Engine.hs
index dc8b2bc5..c00597be 100644
--- a/src/Propellor/Engine.hs
+++ b/src/Propellor/Engine.hs
@@ -4,7 +4,9 @@ module Propellor.Engine (
mainProperties,
runPropellor,
ensureProperty,
+ ensureProperty',
ensureProperties,
+ ensurePropertiesWith,
fromHost,
onlyProcess,
processChainOutput,
@@ -73,6 +75,7 @@ ensureProperty p = do
warningMessage $ "ensureProperty called on " ++ show p ++ "; will not propigate its info: " ++ show (getInfo p)
ensureProperty' p
+-- | ensureProperty without the warning message.
ensureProperty' :: Property -> Propellor Result
ensureProperty' = catchPropellor . propertySatisfy