X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=haskell-dns.git;a=blobdiff_plain;f=Network%2FDNS%2FMessage.hs;h=9713dd2a707ed66d8776458733401346d7eb2e72;hp=9f2b144968c7f394e84068dae3a8cccd84b9b259;hb=248b1c63284bbe00550bf2402ee6a9da6997143e;hpb=d19ee92905c9bf32fb53c9cc0841537c7b92901c

diff --git a/Network/DNS/Message.hs b/Network/DNS/Message.hs
index 9f2b144..9713dd2 100644
--- a/Network/DNS/Message.hs
+++ b/Network/DNS/Message.hs
@@ -51,6 +51,11 @@ module Network.DNS.Message
 
     , mkDomainName
     , mkDN
+    , rootName
+    , isRootName
+    , consLabel
+    , unconsLabel
+    , nameToLabels
     , isZoneOf
 
     , wrapQuestion
@@ -228,6 +233,9 @@ unconsLabel :: DomainName -> (DomainLabel, DomainName)
 unconsLabel (DN (x:xs)) = (x, DN xs)
 unconsLabel x           = error ("Illegal use of unconsLabel: " ++ show x)
 
+nameToLabels :: DomainName -> [DomainLabel]
+nameToLabels (DN xs) = xs
+
 isZoneOf :: DomainName -> DomainName -> Bool
 isZoneOf (DN a) (DN b) = a `isSuffixOf` b