Haskell Websockets experiment