diff options
Diffstat (limited to 'src/Propellor')
| -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 |