1
0

Fix erroneous WS subscription name for public TL.

This commit is contained in:
Nicolas Perriault 2017-04-25 22:32:27 +02:00
parent 1af985130f
commit c72a9281df
No known key found for this signature in database
GPG Key ID: DA5E4C83904F7A2A

View File

@ -713,21 +713,21 @@ subscribeToWebSockets client streamType message =
let let
type_ = type_ =
case streamType of case streamType of
UserStream -> GlobalPublicStream ->
"user" "public"
LocalPublicStream -> LocalPublicStream ->
"public:local" "public:local"
GlobalPublicStream -> UserStream ->
"public:local" "user"
url = url =
(Util.replace "https" "wss" client.server) encodeUrl
++ "/api/v1/streaming/?access_token=" ((Util.replace "https:" "wss:" client.server) ++ "/api/v1/streaming/")
++ client.token [ ( "access_token", client.token )
++ "&stream=" , ( "stream", type_ )
++ type_ ]
in in
WebSocket.listen url message WebSocket.listen url message