rabbitmq chat client in haskell