tcp server in haskell