ExampleDNSServer.hs

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