debugging websocket

emiMobileServer/Source/Ws.ServiceImpl.pas

@@ -22,7 +22,7 @@ type
   [ServiceImplementation]
   TWebSocketService = class(TInterfacedObject, IWebSocketService)
   private
-    procedure WebSockerConnectionHandler;
+    function WebSockerConnectionHandler: string;
     function Health: string;
     procedure ProcessJsonMessage(const AMsg: string);
   end;
@@ -31,7 +31,7 @@ implementation
 
 { TWebSocketService }
 
-procedure TWebSocketService.WebSockerConnectionHandler;
+function TWebSocketService.WebSockerConnectionHandler: string;
 var
   Upgrader: IWebSocketUpgrader;
   WebSocket: IWebSocket;