Simple WebSockets chat server in Haskell using RabbitMQ