destroyTCPServer :: TCPServer -> IO ()
destroyTCPServer serv@TCPServer{..} = do
 sClose _sock
 return ()
destroyTCPServer :: TCPServer -> IO ()
destroyTCPServer serv@TCPServer{..} = do
 sClose _sock
 return ()
destroyTCPServer serv@TCPServer{..} = do
 sClose _sock
 return ()