--- a/gameServer/HandlerUtils.hs	Sun Oct 16 13:14:16 2022 +0300
+++ b/gameServer/HandlerUtils.hs	Sun Oct 16 20:15:57 2022 +0300
@@ -69,6 +69,11 @@
     (ci, rnc) <- ask
     return [sendChan (rnc `client` ci)]
 
+thisClientChansProto :: Reader (ClientIndex, IRnC) [(ClientChan, Word16)]
+thisClientChansProto = do
+    (ci, rnc) <- ask
+    return [(sendChan (rnc `client` ci), clientProto (rnc `client` ci))]
+
 sameProtoChans :: Reader (ClientIndex, IRnC) [ClientChan]
 sameProtoChans = do
     (ci, rnc) <- ask