diff options
| author | Joey Hess <joeyh@joeyh.name> | 2015-09-20 14:58:51 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-09-20 14:58:51 -0400 |
| commit | 174fc58787ed585e047febb206d205daa447dee1 (patch) | |
| tree | 1abf09628fd6410bb872d751dd33bf4b6fb60d04 /src/Propellor/Property/Aiccu.hs | |
| parent | a2ed2d7f483b43c6ebf7f60aa409b7367bca144d (diff) | |
bug fix: used wrong username for config file in case where username/tunnelid was provided in privdata
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 7a1e6e18..16d48832 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 u', p) = confPath `File.hasContent` config u' t p + go (Password _, p) = confPath `File.hasContent` config u t p go (f, _) = error $ "Unexpected type of privdata: " ++ show f |