From c72a9281dfcccbf1991ee25e61561368859af72a Mon Sep 17 00:00:00 2001
From: Nicolas Perriault <nicolas@perriault.net>
Date: Tue, 25 Apr 2017 22:32:27 +0200
Subject: [PATCH] Fix erroneous WS subscription name for public TL.

---
 src/Mastodon.elm | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/src/Mastodon.elm b/src/Mastodon.elm
index cd8fc16..981cd3f 100644
--- a/src/Mastodon.elm
+++ b/src/Mastodon.elm
@@ -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