From 25da9c4ccc87452e887f63bcfe29b3d9110b012e Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Thu, 24 Mar 2022 11:25:59 -0400
Subject: [PATCH] tiny refactor

---
 src/opentelemetry.ml | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/opentelemetry.ml b/src/opentelemetry.ml
index 16959506..c0243257 100644
--- a/src/opentelemetry.ml
+++ b/src/opentelemetry.ml
@@ -470,8 +470,9 @@ module Trace = struct
     let span_id = Span_id.create() in
     let scope = {trace_id;span_id;events=[]; attrs} in
 
-    let finally ok =
-      let status = match ok with
+    (* called once we're done, to emit a span *)
+    let finally res =
+      let status = match res with
         | Ok () -> default_status ~code:Status_code_ok ()
         | Error e -> default_status ~code:Status_code_error ~message:e () in
       let span, _ =