]> gitweb @ CieloNegro.org - haskell-dns.git/blob - ExampleDNSServer.hs
Many changes...
[haskell-dns.git] / 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