diff options
| author | Joey Hess <joeyh@joeyh.name> | 2015-10-19 12:33:18 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-10-19 12:33:18 -0400 |
| commit | ace352cc0aa732d00900122e0ab8552c870f3901 (patch) | |
| tree | 53e8a1019203a94131592f18e280859108129183 /src/Propellor/PropAccum.hs | |
| parent | 10286791b63b198de7d0dc3742f8e1d58113d3f1 (diff) | |
improve Info type using GADT, at nomeata's suggestion
This makes Show Info work, and simplifies the implementation.
Diffstat (limited to 'src/Propellor/PropAccum.hs')
| -rw-r--r-- | src/Propellor/PropAccum.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |