summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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