From efbb3469c6175d38ee662e7a4391ae1ae86486da Mon Sep 17 00:00:00 2001
From: Matt Bray <mattjbray@gmail.com>
Date: Mon, 28 Mar 2022 15:06:32 +0100
Subject: [PATCH] fix: no List.find_map in ocaml 4.08

---
 src/opentelemetry.ml | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/opentelemetry.ml b/src/opentelemetry.ml
index acd49d9e..90630dff 100644
--- a/src/opentelemetry.ml
+++ b/src/opentelemetry.ml
@@ -228,12 +228,12 @@ module Globals = struct
     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)
-
+    let attr =
+      global_attributes |> List.find_opt (fun kv -> kv.key = key)
+    in
+    match attr with
+    | Some kv -> (match kv.value with Some (String_value v) -> Some v | _ -> None)
+    | _ ->  None
 
   (** Main service name metadata *)
   let service_name =