From 8b9bb9fd04585a9c16a41dd968c6d8f730ad1c46 Mon Sep 17 00:00:00 2001 From: Félix Sipma Date: Mon, 21 Sep 2015 10:03:09 +0200 Subject: Unbound: fix bug with duplicate "server" section Signed-off-by: Félix Sipma --- src/Propellor/Property/Unbound.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Propellor/Property/Unbound.hs') 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 -- cgit v1.2.3