import           Network.DNS.Message
import           Network.DNS.Named
import           Network.DNS.Named.Config
import           Network.Socket

main :: IO ()
main = runNamed cnf zoneFor
    where
      cnf :: Config
      cnf = Config {
              cnfServerAddress = SockAddrInet 9090 iNADDR_ANY
            }

      zoneFor :: DomainName -> Maybe Zone
      zoneFor = const Nothing -- FIXME