module Network.DNS.Named.Config
    ( Config(..)
    , defaultConfig
    )
    where

import           Network.Socket


data Config
    = Config {
        cnfServerAddress :: !SockAddr
      , cnfAllowTransfer :: !Bool
      }
    deriving Show

defaultConfig :: Config
defaultConfig = Config {
                  cnfServerAddress = SockAddrInet 53 iNADDR_ANY
                , cnfAllowTransfer = False
                }