summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess2014-04-19 03:12:54 -0400
committerJoey Hess2014-04-19 03:12:54 -0400
commitd9706c33484069eb98508d9d73998795e0d742f7 (patch)
treee7b9bc098d82530b2393be154e4d2f003fe1610f
parentddd4f6402d4def82307a27cb34c4b1cfd37a0b5a (diff)
unused
-rw-r--r--Propellor/Property/Dns.hs4
1 files changed, 0 insertions, 4 deletions
diff --git a/Propellor/Property/Dns.hs b/Propellor/Property/Dns.hs
index 55b63c5f..5c57fcbc 100644
--- a/Propellor/Property/Dns.hs
+++ b/Propellor/Property/Dns.hs
@@ -4,7 +4,6 @@ module Propellor.Property.Dns (
secondary,
secondaryFor,
mkSOA,
- rootAddressesFrom,
writeZoneFile,
nextSerialNumber,
adjustSerialNumber,
@@ -165,9 +164,6 @@ mkSOA d sn rs = SOA
where
hours n = n * 60 * 60
-rootAddressesFrom :: [Host] -> HostName -> [Record]
-rootAddressesFrom hosts hn = map Address (hostAddresses hn hosts)
-
dValue :: BindDomain -> String
dValue (RelDomain d) = d
dValue (AbsDomain d) = d ++ "."