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

Rename Env sig to ENV

Browse source
This commit is contained in:
Shon Feder 2025-06-10 17:47:56 -04:00
parent 75a8b95176
commit ec0efec681
No known key found for this signature in database
4 changed files with 6 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/client-cohttp-lwt/config.mli
View file

@ -9,4 +9,4 @@ val pp : Format.formatter -> t -> unit
val make : (unit -> t) Client.Config.make
(** Make a configuration {!t}. *)
module Env : Client.Config.Env
module Env : Client.Config.ENV

2
src/client-ocurl/config.mli
View file

@ -32,4 +32,4 @@ val make :
Client.Config.make
(** Make a configuration {!t}. *)
module Env : Client.Config.Env
module Env : Client.Config.ENV

6
src/client/config.ml
View file

@ -10,8 +10,6 @@ type t = {
batch_timeout_ms: int;
self_trace: bool;
}
(** Constructing and managing the configuration needed in common by all clients
*)
let pp out (self : t) : unit =
let ppiopt = Format.pp_print_option Format.pp_print_int in
@ -52,7 +50,7 @@ type 'k make =
?self_trace:bool ->
'k
module type Env = sig
module type ENV = sig
val get_debug : unit -> bool
val set_debug : bool -> unit
@ -64,7 +62,7 @@ module type Env = sig
val make : (t -> 'a) -> 'a make
end
module Env () : Env = struct
module Env () : ENV = struct
let debug_ =
ref
(match Sys.getenv_opt "OTEL_OCAML_DEBUG" with

4
src/client/config.mli
View file

@ -85,7 +85,7 @@ type 'k make =
(** Construct, inspect, and update {!t} configurations, drawing defaults from
the environment and encapsulating state *)
module type Env = sig
module type ENV = sig
val get_debug : unit -> bool
val set_debug : bool -> unit
@ -124,4 +124,4 @@ end
(** A generative functor that produces a state-space that can read configuration
values from the environment, provide stateful configuration setting and
accessing operations, and a way to make a new {!t} configuration record *)
module Env : functor () -> Env
module Env : functor () -> ENV