summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Unbound.hs
diff options
context:
space:
mode:
authorFélix Sipma2015-09-21 10:03:09 +0200
committerJoey Hess2015-09-21 10:58:54 -0400
commit8b9bb9fd04585a9c16a41dd968c6d8f730ad1c46 (patch)
tree8323f6f77d1f7ae9f4d0529d68105e015ac70937 /src/Propellor/Property/Unbound.hs
parent9f4b3e0ed4de04ba5fb754ea45402465faf30783 (diff)
Unbound: fix bug with duplicate "server" section
Signed-off-by: Félix Sipma <felix.sipma@no-log.org>
Diffstat (limited to 'src/Propellor/Property/Unbound.hs')
-rw-r--r--src/Propellor/Property/Unbound.hs2
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