simple chat server written in haskell