Add meta channel connection to client-example so we can test seeing all server info messages

Author: diogob

client-example/client.js

@@ -64,7 +64,7 @@ function jwt() {
 }
 
 $(document).ready(function () {
-    var ws = null;
+    var ws = null, meta = null;
 
     $('#channel').keyup(updateJWT);
     updateJWT();
@@ -74,6 +74,10 @@ $(document).ready(function () {
         if(ws === null){
             var jwt = $('#jwt').val();
             var channel = $('#channel').val();
+
+            meta = createWebSocket('/server-info/' + jwt);
+            meta.onmessage = onMessage('#meta-messages');
+
             if(channel == ""){
               ws = createWebSocket('/' + jwt);
             } else {

client-example/index.html

@@ -34,6 +34,9 @@ <h2>Chat</h2>
                 <h2>Messages sent to chat channel</h2>
                 <div id="messages">
                 </div>
+                <h2>Messages sent to meta channel</h2>
+                <div id="meta-messages">
+                </div>
             </div>
         </div>
     </body>

src/PostgresWebsockets/Middleware.hs

@@ -91,16 +91,16 @@ wsApp Context{..} pendingConn =
                       validClaims
                       ctxGetTime
 
+            case configMetaChannel ctxConfig of
+              Nothing -> pure ()
+              Just ch -> sendNotification "Connecion Open" ch
+
             when (hasRead mode) $
               forM_ chs $ flip (onMessage ctxMulti) $ WS.sendTextData conn . B.payload
 
             when (hasWrite mode) $
               notifySession conn sendNotification chs
 
-            case configMetaChannel ctxConfig of
-              Nothing -> pure ()
-              Just ch -> sendNotification "Connecion Open" ch
-
             waitForever <- newEmptyMVar
             void $ takeMVar waitForever