From 1bd062c5336db6aff3b6128f7821f8ebed6b6ca0 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 28 Mar 2016 04:56:42 -0400 Subject: one more --- src/Propellor/Property/DiskImage.hs | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'src/Propellor/Property/DiskImage.hs') diff --git a/src/Propellor/Property/DiskImage.hs b/src/Propellor/Property/DiskImage.hs index 8c027b05..718768c2 100644 --- a/src/Propellor/Property/DiskImage.hs +++ b/src/Propellor/Property/DiskImage.hs @@ -118,12 +118,9 @@ imageBuilt' rebuild img mkchroot tabletype final partspec = -- disk image. It cleans any caches of information that can be omitted; -- eg the apt cache on Debian. cachesCleaned :: Property UnixLike -cachesCleaned = withOS "cache cleaned" $ \w o -> - let aptclean = ensureProperty w Apt.cacheCleaned - in case o of - (Just (System (Debian _) _)) -> aptclean - (Just (System (Buntish _) _)) -> aptclean - _ -> noChange +cachesCleaned = "cache cleaned" ==> (Apt.cacheCleaned `pickOS` skipit) + where + skipit = doNothing :: Property UnixLike -- | Builds a disk image from the contents of a chroot. imageBuiltFrom :: DiskImage -> FilePath -> TableType -> Finalization -> [PartSpec] -> RevertableProperty (HasInfo + Linux) UnixLike -- cgit v1.2.3