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