From f9cc7c149ead60d1178fa3b480282f6089cf79bd Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 20 Nov 2014 17:18:26 -0400 Subject: incomplete systemd container support --- src/Propellor/Property.hs | 4 ---- 1 file changed, 4 deletions(-) (limited to 'src/Propellor/Property.hs') diff --git a/src/Propellor/Property.hs b/src/Propellor/Property.hs index 1d750a78..6ace5e4e 100644 --- a/src/Propellor/Property.hs +++ b/src/Propellor/Property.hs @@ -131,10 +131,6 @@ boolProperty desc a = property desc $ ifM (liftIO a) revert :: RevertableProperty -> RevertableProperty revert (RevertableProperty p1 p2) = RevertableProperty p2 p1 --- | Turns a revertable property into a regular property. -unrevertable :: RevertableProperty -> Property -unrevertable (RevertableProperty p1 _p2) = p1 - -- Changes the action that is performed to satisfy a property. adjustProperty :: Property -> (Propellor Result -> Propellor Result) -> Property adjustProperty p f = p { propertySatisfy = f (propertySatisfy p) } -- cgit v1.3-2-g0d8e