Source file `rpc_metadata.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
open! Core
open! Async_kernel

type t = string [@@deriving sexp_of]

let local_storage_key =
  Univ_map.Key.create ~name:"async_rpc_kernel_metadata" [%sexp_of: t]
;;

let get () = Async_kernel.Async_kernel_scheduler.find_local local_storage_key

module Private = struct
  let with_metadata metadata ~f =
    Async_kernel.Async_kernel_scheduler.with_local local_storage_key metadata ~f
  ;;
end