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

refactor: get_global_attr_

Browse source
This commit is contained in:
Matt Bray 2022-03-28 15:03:12 +01:00
parent 20efd01366
commit 1cd536cb8e
1 changed files with 10 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
src/opentelemetry.ml
View file

@ -227,27 +227,23 @@ module Globals = struct
|> List.map parse_pair
with _ -> []
let get_global_attr_ key =
global_attributes
|> List.find_map (fun kv ->
if kv.key = key then
match kv.value with Some (String_value v) -> Some v | _ -> None
else None)
(** Main service name metadata *)
let service_name =
let n =
global_attributes
|> List.find_map (fun kv ->
if kv.key = Conventions.Attributes.Service.name then
match kv.value with Some (String_value v) -> Some v | _ -> None
else None)
in
let n = get_global_attr_ Conventions.Attributes.Service.name in
let n = match n with Some v -> v | None -> "unknown_service" in
ref n
(** Namespace for the service *)
let service_namespace =
let n =
global_attributes
|> List.find_map (fun kv ->
if kv.key = Conventions.Attributes.Service.namespace then
match kv.value with Some (String_value v) -> Some v | _ -> None
else None)
in
let n = get_global_attr_ Conventions.Attributes.Service.namespace in
ref n
let instrumentation_library =