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

import           Network.Socket


data Config
    = Config {
        cnfServerPort    :: !ServiceName
      , cnfAllowTransfer :: !Bool
      }
    deriving Show

defaultConfig :: Config
defaultConfig = Config {
                  cnfServerPort    = "domain"
                , cnfAllowTransfer = False
                }