anchor.diff:                  sockets <- removeSocket sockets socket
       }
   
  +
       let private receiveMessages (socket : WebSocket) = async {
  -        let buffer : byte[] = Array.zeroCreate 4096
  +        let buffer = Array.zeroCreate 4096
           let segment = ArraySegment<byte>(buffer)
           let! ct = Async.CancellationToken
           try
  
positive.code:                 if ctx.Request.Path = PathString("/subscriptions") then
                      match ctx.WebSockets.IsWebSocketRequest with
                      | true ->
                          let! ws = ctx.WebSockets.AcceptWebSocketAsync() |> Async.AwaitTask
                          sockets <- addSocket sockets ws
                          do! receiveMessages ws
  
                      | false ->
                          ctx.Response.StatusCode <- 400
                  else
  
negative.code:             while not (result.CloseStatus.HasValue) do
                  result <- socket.ReceiveAsync(segment, ct).Result
              socket.CloseAsync(result.CloseStatus.Value, result.CloseStatusDescription, ct) |> Async.AwaitTask |> ignore
              sockets <- removeSocket sockets socket
          with
          | _ -> sockets <- removeSocket sockets socket
      }
  