writing a chat server in haskell