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         cnfServerAddress :: !SockAddr
  13       }
  14     deriving Show
  15
  16 defaultConfig :: Config
  17 defaultConfig = Config {
  18                   cnfServerAddress = SockAddrInet 42 iNADDR_ANY
  19                 }