ExampleDNSServer.hs

   1 import           Network.DNS.Message
   2 import           Network.DNS.Named
   3 import           Network.DNS.Named.Config
   4 import           Network.Socket
   5
   6 main :: IO ()
   7 main = runNamed cnf zoneFor
   8     where
   9       cnf :: Config
  10       cnf = Config {
  11               cnfServerAddress = SockAddrInet 9090 iNADDR_ANY
  12             }
  13
  14       zoneFor :: DomainName -> Maybe Zone
  15       zoneFor = const Nothing -- FIXME