1 import Network.DNS.Message
2 import Network.DNS.Named
3 import Network.DNS.Named.Config
4 import Network.DNS.Named.Zone
8 main = runNamed cnf zoneFor
12 cnfServerAddress = SockAddrInet 9090 iNADDR_ANY
15 zoneFor :: DomainName -> Maybe Zone
16 zoneFor = const Nothing -- FIXME