summaryrefslogtreecommitdiff
path: root/src/Propellor/PropAccum.hs
diff options
context:
space:
mode:
authorJoey Hess2016-03-25 16:12:27 -0400
committerJoey Hess2016-03-25 16:12:27 -0400
commit6b9f3158df63e18b32b7175205ef686badc3bc1b (patch)
treee169e77f1eb0c5f07cef7a441410af2f6053a857 /src/Propellor/PropAccum.hs
parent4694a4c36cca1c7b52421297a62548d8bbb2ec0b (diff)
ported mainProperties
Diffstat (limited to 'src/Propellor/PropAccum.hs')
-rw-r--r--src/Propellor/PropAccum.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Propellor/PropAccum.hs b/src/Propellor/PropAccum.hs
index 91d7b80d..06b8ad3f 100644
--- a/src/Propellor/PropAccum.hs
+++ b/src/Propellor/PropAccum.hs
@@ -30,7 +30,7 @@ import Propellor.PrivData
-- > ! oldproperty
-- > & otherproperty
host :: HostName -> Props metatypes -> Host
-host hn (Props c) = Host hn c (mconcat (map getInfoRecursive c))
+host hn (Props ps) = Host hn ps (mconcat (map getInfoRecursive ps))
-- | Props is a combination of a list of properties, with their combined
-- metatypes.