summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Aiccu.hs
diff options
context:
space:
mode:
authorJoey Hess2015-09-20 15:03:51 -0400
committerJoey Hess2015-09-20 15:03:51 -0400
commit40908a6ff603caf70a0f8653a3f6fda13e05cd37 (patch)
tree8b01c8fffa6d9307feaa6cf617c00a31af59bff4 /src/Propellor/Property/Aiccu.hs
parent174fc58787ed585e047febb206d205daa447dee1 (diff)
make sure aiccu.conf is only readable by root, even if it had a different mode to start with
Diffstat (limited to 'src/Propellor/Property/Aiccu.hs')
-rw-r--r--src/Propellor/Property/Aiccu.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Propellor/Property/Aiccu.hs b/src/Propellor/Property/Aiccu.hs
index 16d48832..519b8ce9 100644
--- a/src/Propellor/Property/Aiccu.hs
+++ b/src/Propellor/Property/Aiccu.hs
@@ -46,5 +46,5 @@ hasConfig t u = prop `onChange` reloaded
property "aiccu configured" . writeConfig
writeConfig :: (((PrivDataField, PrivData) -> Propellor Result) -> Propellor Result) -> Propellor Result
writeConfig getpassword = getpassword $ ensureProperty . go
- go (Password _, p) = confPath `File.hasContent` config u t p
+ go (Password _, p) = confPath `File.hasContentProtected` config u t p
go (f, _) = error $ "Unexpected type of privdata: " ++ show f