diff --git a/Propellor/Property/Dns.hs b/Propellor/Property/Dns.hs
index 55b63c5..5c57fcb 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 ++ "."