From 75556f0a093bee38575da56f2422b9821c4897f0 Mon Sep 17 00:00:00 2001 From: Félix Sipma Date: Fri, 18 Sep 2015 10:33:11 +0200 Subject: Unbound: improve haddock formatting Signed-off-by: Félix Sipma --- src/Propellor/Property/Unbound.hs | 48 +++++++++++++++++++-------------------- 1 file changed, 24 insertions(+), 24 deletions(-) (limited to 'src/Propellor/Property/Unbound.hs') diff --git a/src/Propellor/Property/Unbound.hs b/src/Propellor/Property/Unbound.hs index 94e41104..b982f370 100644 --- a/src/Propellor/Property/Unbound.hs +++ b/src/Propellor/Property/Unbound.hs @@ -56,30 +56,30 @@ config = "/etc/unbound/unbound.conf.d/propellor.conf" -- -- Example property: -- --- cachingDnsServer --- [ ("remote-control", [("control-enable", "no")] --- , ("server", --- [ ("interface", "0.0.0.0") --- , ("access-control", "192.168.1.0/24 allow") --- , ("do-tcp", "no") --- ]) --- [ (AbsDomain "example.com", "transparent") --- , (AbsDomain $ reverseIP $ IPv4 "192.168.1", "static") --- ] --- [ (AbsDomain "example.com", Address $ IPv4 "192.168.1.2") --- , (AbsDomain "myhost.example.com", Address $ IPv4 "192.168.1.2") --- , (AbsDomain "myrouter.example.com", Address $ IPv4 "192.168.1.1") --- , (AbsDomain "www.example.com", Address $ IPv4 "192.168.1.2") --- , (AbsDomain "example.com", MX 10 "mail.example.com") --- , (AbsDomain "mylaptop.example.com", Address $ IPv4 "192.168.1.2") --- -- ^ connected via ethernet --- , (AbsDomain "mywifi.example.com", Address $ IPv4 "192.168.2.1") --- , (AbsDomain "mylaptop.example.com", Address $ IPv4 "192.168.2.2") --- -- ^ connected via wifi, use round robin --- , (AbsDomain "myhost.example.com", PTR $ reverseIP $ IPv4 "192.168.1.2") --- , (AbsDomain "myrouter.example.com", PTR $ reverseIP $ IPv4 "192.168.1.1") --- , (AbsDomain "mylaptop.example.com", PTR $ reverseIP $ IPv4 "192.168.1.2") --- ] +-- > cachingDnsServer +-- > [ ("remote-control", [("control-enable", "no")] +-- > , ("server", +-- > [ ("interface", "0.0.0.0") +-- > , ("access-control", "192.168.1.0/24 allow") +-- > , ("do-tcp", "no") +-- > ]) +-- > [ (AbsDomain "example.com", "transparent") +-- > , (AbsDomain $ reverseIP $ IPv4 "192.168.1", "static") +-- > ] +-- > [ (AbsDomain "example.com", Address $ IPv4 "192.168.1.2") +-- > , (AbsDomain "myhost.example.com", Address $ IPv4 "192.168.1.2") +-- > , (AbsDomain "myrouter.example.com", Address $ IPv4 "192.168.1.1") +-- > , (AbsDomain "www.example.com", Address $ IPv4 "192.168.1.2") +-- > , (AbsDomain "example.com", MX 10 "mail.example.com") +-- > , (AbsDomain "mylaptop.example.com", Address $ IPv4 "192.168.1.2") +-- > -- ^ connected via ethernet +-- > , (AbsDomain "mywifi.example.com", Address $ IPv4 "192.168.2.1") +-- > , (AbsDomain "mylaptop.example.com", Address $ IPv4 "192.168.2.2") +-- > -- ^ connected via wifi, use round robin +-- > , (AbsDomain "myhost.example.com", PTR $ reverseIP $ IPv4 "192.168.1.2") +-- > , (AbsDomain "myrouter.example.com", PTR $ reverseIP $ IPv4 "192.168.1.1") +-- > , (AbsDomain "mylaptop.example.com", PTR $ reverseIP $ IPv4 "192.168.1.2") +-- > ] cachingDnsServer :: [UnboundSection] -> [UnboundZone] -> [UnboundHost] -> Property NoInfo cachingDnsServer sections zones hosts = config `hasContent` (comment : otherSections ++ serverSection) -- cgit v1.2.3