From 6e429a171394225e79808b8f7dae81e5505e105d Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 29 Feb 2016 18:03:22 -0400 Subject: forgot to build; fix --- src/Propellor/Property/Apt.hs | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'src/Propellor') diff --git a/src/Propellor/Property/Apt.hs b/src/Propellor/Property/Apt.hs index bb444463..d05bdcb9 100644 --- a/src/Propellor/Property/Apt.hs +++ b/src/Propellor/Property/Apt.hs @@ -130,9 +130,9 @@ upgrade = upgrade' "dist-upgrade" upgrade' :: String -> Property NoInfo upgrade' p = combineProperties ("apt " ++ p) - [ runApt ["-y", p] + [ pendingConfigured + , runApt ["-y", p] `assume` MadeChange - , dpkgConfigured ] -- | Have apt upgrade packages, but never add new packages or remove @@ -141,8 +141,10 @@ upgrade' p = combineProperties ("apt " ++ p) safeUpgrade :: Property NoInfo safeUpgrade = upgrade' "upgrade" -dpkgConfigured :: Property NoInfo -dpkgConfigured = cmdProperty "dpkg" ["--confugure", "--pending"] +-- | Have dpkg try to configure any packages that are not fully configured. +pendingConfigured :: Property NoInfo +pendingConfigured = cmdProperty "dpkg" ["--confugure", "--pending"] + `assume` MadeChange `describe` "dpkg configured pending" type Package = String -- cgit v1.2.3