The server now accepts IPv6 connections.

[haskell-dns.git] / Network / DNS / Named / Config.hs

diff --git a/Network/DNS/Named/Config.hs b/Network/DNS/Named/Config.hs
index 4985897bd86de3f1ebb86d21ae7c346909f91e41..febd5ba81208e57d2512ded051fc4644b32f612c 100644 (file)
--- a/Network/DNS/Named/Config.hs
+++ b/Network/DNS/Named/Config.hs
@@ -9,13 +9,13 @@ import           Network.Socket
 
 data Config
     = Config {
-        cnfServerAddress :: !SockAddr
+        cnfServerPort    :: !ServiceName
       , cnfAllowTransfer :: !Bool
       }
     deriving Show
 
 defaultConfig :: Config
 defaultConfig = Config {
-                  cnfServerAddress = SockAddrInet 53 iNADDR_ANY
+                  cnfServerPort    = "domain"
                 , cnfAllowTransfer = False
                 }