runTCPServer :: IntTimeout in second.
-> Maybe HostName-> ServiceName-> TimeoutServer ()-> IO ()
Running a TCP server, resolving and binding the address itself.
Only the first address returned for mhost is used, so a server
created by this function listens on a single address family. Use
runTCPServerWithSocket with one socket per address to serve both
IPv4 and IPv6.