simon/ocaml-opentelemetry
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-opentelemetry.git synced 2026-03-07 18:37:56 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

slight refactor

Browse source
This commit is contained in:
Simon Cruanes 2026-02-15 15:08:30 -05:00
parent 8b9ea57a02
commit e2aa473cf9
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 12 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
src/client/exporter_config.ml
View file

@ -36,27 +36,30 @@ type t = {
_rest: rest; _rest: rest;
} }
let pp out (self : t) : unit = open struct
let ppiopt out i = let ppiopt out i =
match i with match i with
| None -> Format.fprintf out "None" | None -> Format.fprintf out "None"
| Some i -> Format.fprintf out "%d" i | Some i -> Format.fprintf out "%d" i
in
let pp_header ppf (a, b) = Format.fprintf ppf "@[%s: @,%s@]@." a b in let pp_header ppf (a, b) = Format.fprintf ppf "@[%s: @,%s@]@." a b
let ppheaders out l = let ppheaders out l =
Format.fprintf out "[@[%a@]]" (Format.pp_print_list pp_header) l Format.fprintf out "[@[%a@]]" (Format.pp_print_list pp_header) l
in
let pp_protocol out = function let pp_protocol out = function
| Http_protobuf -> Format.fprintf out "http/protobuf" | Http_protobuf -> Format.fprintf out "http/protobuf"
| Http_json -> Format.fprintf out "http/json" | Http_json -> Format.fprintf out "http/json"
in
let pp_log_level out = function let pp_log_level out = function
| Log_level_none -> Format.fprintf out "none" | Log_level_none -> Format.fprintf out "none"
| Log_level_error -> Format.fprintf out "error" | Log_level_error -> Format.fprintf out "error"
| Log_level_warn -> Format.fprintf out "warn" | Log_level_warn -> Format.fprintf out "warn"
| Log_level_info -> Format.fprintf out "info" | Log_level_info -> Format.fprintf out "info"
| Log_level_debug -> Format.fprintf out "debug" | Log_level_debug -> Format.fprintf out "debug"
in end
let pp out (self : t) : unit =
let { let {
debug; debug;
log_level; log_level;
@ -131,7 +134,7 @@ module type ENV = sig
val make : (t -> 'a) -> 'a make val make : (t -> 'a) -> 'a make
end end
module Env () : ENV = struct open struct
let get_debug_from_env () = let get_debug_from_env () =
match Sys.getenv_opt "OTEL_OCAML_DEBUG" with match Sys.getenv_opt "OTEL_OCAML_DEBUG" with
| Some ("1" | "true") -> true | Some ("1" | "true") -> true
@ -209,7 +212,9 @@ module Env () : ENV = struct
let get_general_headers_from_env () = let get_general_headers_from_env () =
try parse_headers (Sys.getenv "OTEL_EXPORTER_OTLP_HEADERS") with _ -> [] try parse_headers (Sys.getenv "OTEL_EXPORTER_OTLP_HEADERS") with _ -> []
end
module Env () : ENV = struct
let merge_headers base specific = let merge_headers base specific =
(* Signal-specific headers override generic ones *) (* Signal-specific headers override generic ones *)
let specific_keys = List.map fst specific in let specific_keys = List.map fst specific in