From d9706c33484069eb98508d9d73998795e0d742f7 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 19 Apr 2014 03:12:54 -0400 Subject: unused --- Propellor/Property/Dns.hs | 4 ---- 1 file changed, 4 deletions(-) (limited to 'Propellor/Property/Dns.hs') 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 ++ "." -- cgit v1.2.3