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 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Propellor/Property/Ccache.hs') 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 -- cgit v1.2.3