From 526bcbf093af665f316a0ba4d1a836786ab66dcf Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 2 Apr 2014 12:13:39 -0400 Subject: type-safe reversions --- Propellor/Property/Apt.hs | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) (limited to 'Propellor/Property/Apt.hs') diff --git a/Propellor/Property/Apt.hs b/Propellor/Property/Apt.hs index 92e23b7e..0b8b8ab9 100644 --- a/Propellor/Property/Apt.hs +++ b/Propellor/Property/Apt.hs @@ -129,16 +129,18 @@ autoRemove :: Property autoRemove = runApt ["-y", "autoremove"] `describe` "apt autoremove" -unattendedUpgrades :: Bool -> Property -unattendedUpgrades enabled = - (if enabled then installed else removed) ["unattended-upgrades"] - `onChange` reConfigure "unattended-upgrades" - [("unattended-upgrades/enable_auto_updates" , "boolean", v)] - `describe` ("unattended upgrades " ++ v) +-- | Enables unattended upgrades. Revert to disable. +unattendedUpgrades :: RevertableProperty +unattendedUpgrades = RevertableProperty (go True) (go False) where - v - | enabled = "true" - | otherwise = "false" + go enabled = (if enabled then installed else removed) ["unattended-upgrades"] + `onChange` reConfigure "unattended-upgrades" + [("unattended-upgrades/enable_auto_updates" , "boolean", v)] + `describe` ("unattended upgrades " ++ v) + where + v + | enabled = "true" + | otherwise = "false" -- | Preseeds debconf values and reconfigures the package so it takes -- effect. -- cgit v1.2.3