From ec0efec6816c18472f95c6343d01601854964704 Mon Sep 17 00:00:00 2001
From: Shon Feder <shon.feder@gmail.com>
Date: Tue, 10 Jun 2025 17:47:56 -0400
Subject: [PATCH] Rename Env sig to ENV

---
 src/client-cohttp-lwt/config.mli | 2 +-
 src/client-ocurl/config.mli      | 2 +-
 src/client/config.ml             | 6 ++----
 src/client/config.mli            | 4 ++--
 4 files changed, 6 insertions(+), 8 deletions(-)

diff --git a/src/client-cohttp-lwt/config.mli b/src/client-cohttp-lwt/config.mli
index b7e324bc..69059b08 100644
--- a/src/client-cohttp-lwt/config.mli
+++ b/src/client-cohttp-lwt/config.mli
@@ -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
diff --git a/src/client-ocurl/config.mli b/src/client-ocurl/config.mli
index a54a8f3d..13310941 100644
--- a/src/client-ocurl/config.mli
+++ b/src/client-ocurl/config.mli
@@ -32,4 +32,4 @@ val make :
   Client.Config.make
 (** Make a configuration {!t}. *)
 
-module Env : Client.Config.Env
+module Env : Client.Config.ENV
diff --git a/src/client/config.ml b/src/client/config.ml
index e8b74065..2bdb633d 100644
--- a/src/client/config.ml
+++ b/src/client/config.ml
@@ -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
diff --git a/src/client/config.mli b/src/client/config.mli
index 0fece677..10b95995 100644
--- a/src/client/config.mli
+++ b/src/client/config.mli
@@ -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