Fix erroneous WS subscription name for public TL.

src/Mastodon.elm

@@ -713,21 +713,21 @@ subscribeToWebSockets client streamType message =
     let
         type_ =
             case streamType of
-                UserStream ->
+                GlobalPublicStream ->
-                    "user"
+                    "public"
 
                 LocalPublicStream ->
                     "public:local"
 
-                GlobalPublicStream ->
+                UserStream ->
-                    "public:local"
+                    "user"
 
         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
         WebSocket.listen url message