diff options
| author | Joey Hess <joeyh@joeyh.name> | 2015-10-18 14:14:21 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-10-18 14:14:21 -0400 |
| commit | 6c96481dd39d1e0fbcef8dd68300a66e13db9ed9 (patch) | |
| tree | 81b8c2a296dcaaa0e2cd43ece365cbf39c957e1c /src/Propellor/PropAccum.hs | |
| parent | f6e352767eaf236acb929a9793dee28eb4897baa (diff) | |
| parent | 2ad09b34ecec5a643a4a08c88a0a1cc7703094e3 (diff) | |
Merge branch 'joeyconfig'
Diffstat (limited to 'src/Propellor/PropAccum.hs')
| -rw-r--r-- | src/Propellor/PropAccum.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Propellor/PropAccum.hs b/src/Propellor/PropAccum.hs index 61cf3dc8..1f9459d0 100644 --- a/src/Propellor/PropAccum.hs +++ b/src/Propellor/PropAccum.hs @@ -6,7 +6,7 @@ module Propellor.PropAccum , (&) , (&^) , (!) - , propigateContainer + , propagateContainer ) where import Data.Monoid @@ -64,17 +64,17 @@ instance PropAccum Host where -- propertyChidren the properties of the provided container. -- -- The Info of the propertyChildren is adjusted to only include --- info that should be propigated out to the Property. +-- info that should be propagated out to the Property. -- -- Any PrivInfo that uses HostContext is adjusted to use the name -- of the container as its context. -propigateContainer +propagateContainer :: (PropAccum container) => String -> container -> Property HasInfo -> Property HasInfo -propigateContainer containername c prop = infoProperty +propagateContainer containername c prop = infoProperty (propertyDesc prop) (propertySatisfy prop) (propertyInfo prop) |