data Config
= Config {
- cnfServerAddress :: !SockAddr
+ cnfServerPort :: !ServiceName
, cnfAllowTransfer :: !Bool
}
deriving Show
defaultConfig :: Config
defaultConfig = Config {
- cnfServerAddress = SockAddrInet 53 iNADDR_ANY
+ cnfServerPort = "domain"
, cnfAllowTransfer = False
}