summaryrefslogtreecommitdiff
path: root/src/Propellor/Property.hs
diff options
context:
space:
mode:
authorJoey Hess2014-11-20 17:18:26 -0400
committerJoey Hess2014-11-20 17:18:26 -0400
commitf9cc7c149ead60d1178fa3b480282f6089cf79bd (patch)
tree1f9d62d03e0c4a307383bb2420a9ae98ba431947 /src/Propellor/Property.hs
parent3669bd61d0e15682ce25b9a82788b8d69f87d123 (diff)
incomplete systemd container support
Diffstat (limited to 'src/Propellor/Property.hs')
-rw-r--r--src/Propellor/Property.hs4
1 files changed, 0 insertions, 4 deletions
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) }