From 6b9f3158df63e18b32b7175205ef686badc3bc1b Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 25 Mar 2016 16:12:27 -0400 Subject: ported mainProperties --- src/Propellor/PropAccum.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Propellor/PropAccum.hs') 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. -- cgit v1.2.3