From 442dbe23119e585e2d38456a87e46b265ba3acb6 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 1 Jun 2014 02:53:42 -0400 Subject: propellor spin --- config-joey.hs | 2 ++ src/Propellor/Property/Apt.hs | 6 ++++++ 2 files changed, 8 insertions(+) diff --git a/config-joey.hs b/config-joey.hs index eca421db..026f2095 100644 --- a/config-joey.hs +++ b/config-joey.hs @@ -221,6 +221,7 @@ standardSystem hn suite arch = host hn & os (System (Debian suite) arch) & Apt.stdSourcesList suite `onChange` Apt.upgrade + & Apt.cacheCleaned & Apt.installed ["etckeeper"] & Apt.installed ["ssh"] & GitHome.installedFor "root" @@ -245,6 +246,7 @@ standardContainer name suite arch = Docker.container name (dockerImage system) & os (System (Debian suite) arch) & Apt.stdSourcesList suite & Apt.unattendedUpgrades + & Apt.cacheCleaned where system = System (Debian suite) arch diff --git a/src/Propellor/Property/Apt.hs b/src/Propellor/Property/Apt.hs index d3f47a80..69144d72 100644 --- a/src/Propellor/Property/Apt.hs +++ b/src/Propellor/Property/Apt.hs @@ -254,3 +254,9 @@ trustsKey k = RevertableProperty trust untrust hPutStr h (pubkey k) hClose h nukeFile $ f ++ "~" -- gpg dropping + +-- | Cleans apt's cache of downloaded packages to avoid using up disk +-- space. +cacheCleaned :: Property +cacheCleaned = cmdProperty "apt-get" ["clean"] + `describe` "apt cache cleaned" -- cgit v1.2.3