diff options
| author | Joey Hess <joeyh@joeyh.name> | 2015-09-29 10:33:21 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-09-29 10:33:21 -0400 |
| commit | aad21db651a8b23e8bfa0eb2e4c9d0e3fa76d962 (patch) | |
| tree | 67fe537271f1fd2412551de4ceed1f59459094f1 /src/Propellor/Property/Aiccu.hs | |
| parent | fe54ed07fa28df41fc2fba85bb2b166e76d1d89e (diff) | |
| parent | d9bfd1eb50b8ac3f7621be238eb69833a6e4539a (diff) | |
Merge branch 'joeyconfig'
Diffstat (limited to 'src/Propellor/Property/Aiccu.hs')
| -rw-r--r-- | src/Propellor/Property/Aiccu.hs | 2 |
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 |