simon/ocaml-opentelemetry
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-opentelemetry.git synced 2026-03-10 12:45:45 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

move AList to core

Browse source
This commit is contained in:
Simon Cruanes 2023-12-20 15:45:39 -05:00
parent 3d16de634f
commit 2ac799f10d
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
3 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/client-ocurl/AList.ml → src/core/AList.ml
View file

@ -4,6 +4,8 @@ type 'a t = 'a list Atomic.t
let make () = Atomic.make [] let make () = Atomic.make []
let get = Atomic.get
let add self x = let add self x =
while while
let old = Atomic.get self in let old = Atomic.get self in

3
src/client-ocurl/AList.mli → src/core/AList.mli
View file

@ -2,6 +2,9 @@
type 'a t type 'a t
val get : 'a t -> 'a list
(** Snapshot *)
val make : unit -> 'a t val make : unit -> 'a t
val add : 'a t -> 'a -> unit val add : 'a t -> 'a -> unit

4
src/core/opentelemetry.ml
View file

@ -6,6 +6,10 @@ module Lock = Lock
module Rand_bytes = Rand_bytes module Rand_bytes = Rand_bytes
(** Generation of random identifiers. *) (** Generation of random identifiers. *)
module AList = AList
(** Atomic list, for internal usage
@since NEXT_RELEASE *)
open struct open struct
let[@inline] result_bind x f = let[@inline] result_bind x f =
match x with match x with