Simple WebSockets chat server in Haskell using RabbitMQ and Snap. - View it on GitHub