summaryrefslogtreecommitdiff
path: root/src/Propellor/PropAccum.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Propellor/PropAccum.hs')
-rw-r--r--src/Propellor/PropAccum.hs9
1 files changed, 5 insertions, 4 deletions
diff --git a/src/Propellor/PropAccum.hs b/src/Propellor/PropAccum.hs
index fb38e260..8177b97b 100644
--- a/src/Propellor/PropAccum.hs
+++ b/src/Propellor/PropAccum.hs
@@ -36,8 +36,9 @@ host hn (Props i c) = Host hn c i
-- metatypes and info.
data Props metatypes = Props Info [ChildProperty]
--- | Start constructing a Props. Properties can then be added to it using
--- `(&)` etc.
+-- | Start accumulating a list of properties.
+--
+-- Properties can be added to it using `(&)` etc.
props :: Props UnixLike
props = Props mempty []
@@ -102,7 +103,7 @@ propagateContainer
propagateContainer containername c prop = Property
undefined
(propertyDesc prop)
- (propertySatisfy prop)
+ (getSatisfy prop)
(propertyInfo prop)
(propertyChildren prop ++ hostprops)
where
@@ -111,6 +112,6 @@ propagateContainer containername c prop = Property
let i = mapInfo (forceHostContext containername)
(propagatableInfo (propertyInfo p))
cs = map go (propertyChildren p)
- in infoProperty (propertyDesc p) (propertySatisfy p) i cs
+ in infoProperty (propertyDesc p) (getSatisfy p) i cs
-}