Haskell Socket.IO chat web app