Implemented AXFR protocol.

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

diff --git a/Network/DNS/Named/Config.hs b/Network/DNS/Named/Config.hs
index ba9ad72fab16d532dc4bbd07a8717b9ff7bc6a35..4985897bd86de3f1ebb86d21ae7c346909f91e41 100644 (file)
--- 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
                 }