From a85d01661501b16da6bf97e543ce88e4f4f1fd77 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Tue, 12 Nov 2019 14:55:41 -0700 Subject: introduce propsInfo Code from Joey by private e-mail. --- src/Propellor/Types/Core.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/Propellor/Types') diff --git a/src/Propellor/Types/Core.hs b/src/Propellor/Types/Core.hs index 88c749b3..9f4dc519 100644 --- a/src/Propellor/Types/Core.hs +++ b/src/Propellor/Types/Core.hs @@ -109,3 +109,6 @@ instance IsProp ChildProperty where getInfo (ChildProperty _ _ i _) = i toChildProperty = id getSatisfy (ChildProperty _ a _ _) = a + +propsInfo :: Props metatypes -> Info +propsInfo (Props l) = mconcat (map getInfo l) -- cgit v1.2.3