summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorFélix Sipma2015-09-21 10:03:09 +0200
committerJoey Hess2015-09-21 10:58:48 -0400
commite6abc347ea37acc9255055940fb78e3dbdb2a4f1 (patch)
tree09dd4050e7f97790085407ababbfbc9c1c2a2ee1
parent12c49c04e1034701fc4f53c955d4c09a35f1b570 (diff)
Unbound: fix bug with duplicate "server" section
Signed-off-by: Félix Sipma <felix.sipma@no-log.org>
-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