Sensible and clean way to write WebSocket-capable servers in Haskell
