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
type_ =
case streamType of
UserStream ->
"user"
GlobalPublicStream ->
"public"
LocalPublicStream ->
"public:local"
GlobalPublicStream ->
"public:local"
UserStream ->
"user"
url =
(Util.replace "https" "wss" client.server)
++ "/api/v1/streaming/?access_token="
++ client.token
++ "&stream="
++ type_
encodeUrl
((Util.replace "https:" "wss:" client.server) ++ "/api/v1/streaming/")
[ ( "access_token", client.token )
, ( "stream", type_ )
]
in
WebSocket.listen url message