summaryrefslogtreecommitdiff
path: root/src/Propellor/Property.hs
diff options
context:
space:
mode:
authorJoey Hess2014-11-19 19:30:51 -0400
committerJoey Hess2014-11-19 19:30:56 -0400
commit4a9bbd1391b708d72a455cc00f698a80f1fd5fa5 (patch)
treed2d2bc76804b78f5a937ac31b34d8f4151c12745 /src/Propellor/Property.hs
parent08242e29f6878cbf514bdf68a4a7276d514a6aba (diff)
Added support for using debootstrap from propellor.
Most of the hard part was making it be able to install debootstrap from source, for use on non-debian-derived systems.
Diffstat (limited to 'src/Propellor/Property.hs')
-rw-r--r--src/Propellor/Property.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Propellor/Property.hs b/src/Propellor/Property.hs
index 9545979c..7000b2a3 100644
--- a/src/Propellor/Property.hs
+++ b/src/Propellor/Property.hs
@@ -131,6 +131,10 @@ 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
+
-- | Starts accumulating the properties of a Host.
--
-- > host "example.com"