The server now accepts IPv6 connections.

[haskell-dns.git] / ExampleDNSServer.hs

diff --git a/ExampleDNSServer.hs b/ExampleDNSServer.hs
index 8c9919535dfd901cd67a81062ef7e9830debc836..428f261856dd892fa8d8a2862996239eb8b91f9d 100644 (file)
--- a/ExampleDNSServer.hs
+++ b/ExampleDNSServer.hs
@@ -10,7 +10,8 @@ main = runNamed cnf (return . findZone)
     where
       cnf :: Config
       cnf = Config {
-              cnfServerAddress = SockAddrInet 9090 iNADDR_ANY
+              cnfServerPort    = "9090"
+            , cnfAllowTransfer = True
             }
 
       findZone :: DomainName -> Maybe Zone
@@ -30,8 +31,7 @@ main = runNamed cnf (return . findZone)
                           , soaExpirationLimit    = 3600000
                           , soaMinimumTTL         = 3600
                           }
-             , zoneRecordNames = return [ mkDN "cielonegro.org."
-                                        , mkDN "ns.cielonegro.org."
+             , zoneRecordNames = return [ mkDN "ns.cielonegro.org."
                                         , mkDN "www.cielonegro.org."
                                         , mkDN "git.cielonegro.org."
                                         ]