summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Unbound.hs
diff options
context:
space:
mode:
authorFélix Sipma2015-09-18 10:33:11 +0200
committerJoey Hess2015-09-18 13:30:34 -0400
commit75556f0a093bee38575da56f2422b9821c4897f0 (patch)
tree86bc984e076c050fabb389e6698797e7753f3f82 /src/Propellor/Property/Unbound.hs
parent83db452c16c73b64e9742885880316a8760b057c (diff)
Unbound: improve haddock formatting
Signed-off-by: Félix Sipma <felix.sipma@no-log.org>
Diffstat (limited to 'src/Propellor/Property/Unbound.hs')
-rw-r--r--src/Propellor/Property/Unbound.hs48
1 files changed, 24 insertions, 24 deletions
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)