A basic websocket chat server written in Haskell and a minimal client.