X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=haskell-dns.git;a=blobdiff_plain;f=Network%2FDNS%2FNamed%2FConfig.hs;h=4985897bd86de3f1ebb86d21ae7c346909f91e41;hp=ba9ad72fab16d532dc4bbd07a8717b9ff7bc6a35;hb=d19ee92905c9bf32fb53c9cc0841537c7b92901c;hpb=957d3f466cea2fa642f67f477ec4ad9a0d535a9b

diff --git a/Network/DNS/Named/Config.hs b/Network/DNS/Named/Config.hs
index ba9ad72..4985897 100644
--- a/Network/DNS/Named/Config.hs
+++ b/Network/DNS/Named/Config.hs
@@ -10,10 +10,12 @@ import           Network.Socket
 data Config
     = Config {
         cnfServerAddress :: !SockAddr
+      , cnfAllowTransfer :: !Bool
       }
     deriving Show
 
 defaultConfig :: Config
 defaultConfig = Config {
-                  cnfServerAddress = SockAddrInet 42 iNADDR_ANY
+                  cnfServerAddress = SockAddrInet 53 iNADDR_ANY
+                , cnfAllowTransfer = False
                 }