From 0a5bd1b3ff4f211db9d29ce2a1b9271e836268f6 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 22 May 2016 08:35:58 +0900 Subject: hasGroupCache -> hasCache I was originally thinking that the name `Ccache.hasCache` might be for a property `User -> Property DebianLike`. However, someone wanted to write a property configuring a user cache, it would probably have the standard location `~/.ccache`. This cache would be implicitly created when required, so the name `Ccache.hasCache` would be needed. --- src/Propellor/Property/Ccache.hs | 4 ++-- src/Propellor/Property/Sbuild.hs | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Propellor/Property') diff --git a/src/Propellor/Property/Ccache.hs b/src/Propellor/Property/Ccache.hs index f511def7..b721e684 100644 --- a/src/Propellor/Property/Ccache.hs +++ b/src/Propellor/Property/Ccache.hs @@ -33,8 +33,8 @@ data Limit -- wish to limit both the maximum size of the cache and the maximum number of -- files in the cache. However, setting only one of these two limits is -- generally sufficient. -hasGroupCache :: Group -> Limit -> RevertableProperty DebianLike UnixLike -group@(Group g) `hasGroupCache` limit = (make `requires` installed) delete +hasCache :: Group -> Limit -> RevertableProperty DebianLike UnixLike +group@(Group g) `hasCache` limit = (make `requires` installed) delete where make = propertyList ("ccache for " ++ g ++ " group exists") $ props & File.dirExists path diff --git a/src/Propellor/Property/Sbuild.hs b/src/Propellor/Property/Sbuild.hs index fe22c038..df9c5a37 100644 --- a/src/Propellor/Property/Sbuild.hs +++ b/src/Propellor/Property/Sbuild.hs @@ -313,7 +313,7 @@ keypairGenerated = check (not <$> doesFileExist secKeyFile) $ go -- another script from wiki.d.o/sbuild ccachePrepared :: Property DebianLike ccachePrepared = propertyList "sbuild group ccache configured" $ props - & Group "sbuild" `Ccache.hasGroupCache` (Ccache.MaxSize "2G") + & Group "sbuild" `Ccache.hasCache` (Ccache.MaxSize "2G") & "/etc/schroot/sbuild/fstab" `File.containsLine` "/var/cache/ccache-sbuild /var/cache/ccache-sbuild none rw,bind 0 0" `describe` "ccache mounted in sbuild schroots" -- cgit v1.2.3