summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Aiccu.hs
diff options
context:
space:
mode:
authorJoey Hess2015-09-29 10:33:21 -0400
committerJoey Hess2015-09-29 10:33:21 -0400
commitaad21db651a8b23e8bfa0eb2e4c9d0e3fa76d962 (patch)
tree67fe537271f1fd2412551de4ceed1f59459094f1 /src/Propellor/Property/Aiccu.hs
parentfe54ed07fa28df41fc2fba85bb2b166e76d1d89e (diff)
parentd9bfd1eb50b8ac3f7621be238eb69833a6e4539a (diff)
Merge branch 'joeyconfig'
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 e8aaa7bb..c49805b0 100644
--- a/src/Propellor/Property/Aiccu.hs
+++ b/src/Propellor/Property/Aiccu.hs
@@ -46,5 +46,5 @@ hasConfig t u = prop `onChange` restarted
property "aiccu configured" . writeConfig
writeConfig :: (((PrivDataField, PrivData) -> Propellor Result) -> Propellor Result) -> Propellor Result
writeConfig getpassword = getpassword $ ensureProperty . go
- go (Password _, p) = confPath `File.hasContentProtected` config u t p
+ go (Password u', p) = confPath `File.hasContentProtected` config u' t p
go (f, _) = error $ "Unexpected type of privdata: " ++ show f