diff options
| author | Félix Sipma <felix.sipma@no-log.org> | 2015-09-21 10:03:09 +0200 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-09-21 10:58:54 -0400 |
| commit | 8b9bb9fd04585a9c16a41dd968c6d8f730ad1c46 (patch) | |
| tree | 8323f6f77d1f7ae9f4d0529d68105e015ac70937 /src | |
| parent | 9f4b3e0ed4de04ba5fb754ea45402465faf30783 (diff) | |
Unbound: fix bug with duplicate "server" section
Signed-off-by: Félix Sipma <felix.sipma@no-log.org>
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/Property/Unbound.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Propellor/Property/Unbound.hs b/src/Propellor/Property/Unbound.hs index b982f370..e44953f6 100644 --- a/src/Propellor/Property/Unbound.hs +++ b/src/Propellor/Property/Unbound.hs @@ -89,7 +89,7 @@ cachingDnsServer sections zones hosts = serverSection = genSection (fromMaybe ("server", []) $ find ((== "server") . fst) sections) ++ map genZone zones ++ map (uncurry genRecord') hosts - otherSections = foldr ((++) . genSection) [] sections + otherSections = foldr ((++) . genSection) [] $ filter ((/= "server") . fst) sections genSection :: UnboundSection -> [Line] genSection (section, settings) = sectionHeader section : map genSetting settings |