From ace352cc0aa732d00900122e0ab8552c870f3901 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 19 Oct 2015 12:33:18 -0400 Subject: improve Info type using GADT, at nomeata's suggestion This makes Show Info work, and simplifies the implementation. --- 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 1f9459d0..3c50cf32 100644 --- a/src/Propellor/PropAccum.hs +++ b/src/Propellor/PropAccum.hs @@ -83,6 +83,6 @@ propagateContainer containername c prop = infoProperty hostprops = map go $ getProperties c go p = let i = mapInfo (forceHostContext containername) - (propigatableInfo (propertyInfo p)) + (propagatableInfo (propertyInfo p)) cs = map go (propertyChildren p) in infoProperty (propertyDesc p) (propertySatisfy p) i cs -- cgit v1.2.3