[Haskell-cafe] how to create a pipes producer from websockets?