summaryrefslogtreecommitdiff
path: root/src/Propellor/Engine.hs
diff options
context:
space:
mode:
authorJoey Hess2015-01-19 16:14:01 -0400
committerJoey Hess2015-01-19 16:14:01 -0400
commit0a2a553d31fbb3c449ba30a395676241d193d478 (patch)
treeb1457dcef3e29d9e905ded98bd9054e05540258a /src/Propellor/Engine.hs
parentc8153ff0bd5629c9bfd665ae40c709999d1f8a7a (diff)
add back a warning aboit info propigation to ensureProperty
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 90b8e3d8..0835660f 100644
--- a/src/Propellor/Engine.hs
+++ b/src/Propellor/Engine.hs
@@ -62,6 +62,9 @@ runEndAction host res (EndAction desc a) = actionMessageOn (hostName host) desc
-- | For when code running in the Propellor monad needs to ensure a
-- Property.
+--
+-- Note that the Info of the Property is not propigated out, so it will
+-- not be visible to propellor, unless you arrange for it to be propigated.
ensureProperty :: Property -> Propellor Result
ensureProperty = catchPropellor . propertySatisfy