module ADNS
( HostName, HostAddress
, Resolver, initResolver, InitFlag(..)
, queryA, queryPTR, queryMX, querySRV
, dummyDNS
)
where
import Network ( HostName, PortID )
import Network.Socket ( HostAddress )
import ADNS.Base
import ADNS.Resolver
queryA :: Resolver -> HostName -> IO (Maybe [HostAddress])
queryA = query resolveA
querySRV :: Resolver -> HostName -> IO (Maybe [(HostName, PortID)])
querySRV = query resolveSRV
queryPTR :: Resolver -> HostAddress -> IO (Maybe [HostName])
queryPTR = query resolvePTR
queryMX :: Resolver -> HostName -> IO (Maybe [(HostName, HostAddress)])
queryMX = query resolveMX