From 42da8445470a6e4950873fc5d6bea88646ec2b63 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 26 Mar 2016 18:54:18 -0400 Subject: got rid of the undefined in privdata addInfoProperty' is like addInfoProperty but for when the input property is already known to HasInfo. --- src/Propellor/PrivData.hs | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'src/Propellor/PrivData.hs') diff --git a/src/Propellor/PrivData.hs b/src/Propellor/PrivData.hs index 5e6e0869..77c7133f 100644 --- a/src/Propellor/PrivData.hs +++ b/src/Propellor/PrivData.hs @@ -127,11 +127,7 @@ withPrivData' feed srclist c mkprop = addinfo $ mkprop $ \a -> "Fix this by running:" : showSet (map (\s -> (privDataField s, Context cname, describePrivDataSource s)) srclist) return FailedChange - addinfo p = Property undefined -- FIXME: should use sing here - (propertyDesc p) - (getSatisfy p) - (propertyInfo p `addInfo` privset) - (propertyChildren p) + addinfo p = p `addInfoProperty'` (toInfo privset) privset = PrivInfo $ S.fromList $ map (\s -> (privDataField s, describePrivDataSource s, hc)) srclist fieldnames = map show fieldlist -- cgit v1.2.3