X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=haskell-dns.git;a=blobdiff_plain;f=Network%2FDNS%2FNamed%2FConfig.hs;fp=Network%2FDNS%2FNamed%2FConfig.hs;h=febd5ba81208e57d2512ded051fc4644b32f612c;hp=4985897bd86de3f1ebb86d21ae7c346909f91e41;hb=826401d22c87d6c5d77ad4f427d28d6b97a9d12f;hpb=248b1c63284bbe00550bf2402ee6a9da6997143e

diff --git a/Network/DNS/Named/Config.hs b/Network/DNS/Named/Config.hs
index 4985897..febd5ba 100644
--- 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
                 }