Network/DNS/Named/Config.hs

   1 module Network.DNS.Named.Config
   2     ( Config(..)
   3     , defaultConfig
   4     )
   5     where
   6
   7 import           Network.Socket
   8
   9
  10 data Config
  11     = Config {
  12         cnfServerPort    :: !ServiceName
  13       , cnfAllowTransfer :: !Bool
  14       }
  15     deriving Show
  16
  17 defaultConfig :: Config
  18 defaultConfig = Config {
  19                   cnfServerPort    = "domain"
  20                 , cnfAllowTransfer = False
  21                 }