anchor.diff:                      logWarn ""
                       // app.logError (sprintf "%A CROSS THE BEAMS" socket.Id)                           
                       failwith "Don't cross the beams !"
  +            | CloseIncomming ->
  +                logDebug "[CloseIncomming] Closing"
  +                return ()
           }
   
           loop (new Queue<PacketMessage>()) None
  
positive.code: let inline private simpleResponse (code: HttpCode) (message: string) =
      bytesResponse code (UTF8.bytes message)
  
  type EngineIo(config, app: EngineApp) =
      let mutable sessions: Map<SocketId, InternalEngineIoSocket> = Map.empty
      let idGenerator = Base64Id.create config.RandomNumberGenerator
      
      let payloadToResponse sid payload engineCtx =
          if engineCtx.SupportsBinary then
              bytesResponse HttpCode.HTTP_200 (payload |> Payload.encodeToBinary |> Segment.toArray)
  
negative.code:             let socketIdString = idGenerator ()
              let socketId = SocketId socketIdString
  
              let socket = new InternalEngineIoSocket(socketId, socketTimeout, socketClosed)
              mutateField &sessions (fun s -> s |> Map.add socket.Id socket)
              
              ll.info (eventX (sprintf "Creating session with ID %s" socketIdString))
  
  