From 9a834b39f7478f7a55efae91caffa38a4f921e78 Mon Sep 17 00:00:00 2001
From: Elliott Cable <elliott.cable@ahrefs.com>
Date: Wed, 20 Sep 2023 15:15:58 +0000
Subject: [PATCH] dune fmt

---
 dune                       |  3 ++-
 src/client-cohttp-lwt/dune |  3 ++-
 src/dune                   |  3 ++-
 src/opentelemetry.ml       | 16 ++++++++++++++--
 tests/bin/dune             |  6 ++++--
 tests/dune                 |  6 ++----
 6 files changed, 26 insertions(+), 11 deletions(-)

diff --git a/dune b/dune
index 575b5a09..6b9e175b 100644
--- a/dune
+++ b/dune
@@ -1,3 +1,4 @@
 (env
  (_
-  (flags :standard -warn-error -a+8 -w +a-4-30-40-41-42-44-48-70 -strict-sequence)))
+  (flags :standard -warn-error -a+8 -w +a-4-30-40-41-42-44-48-70
+    -strict-sequence)))
diff --git a/src/client-cohttp-lwt/dune b/src/client-cohttp-lwt/dune
index 12d79702..f4198731 100644
--- a/src/client-cohttp-lwt/dune
+++ b/src/client-cohttp-lwt/dune
@@ -2,6 +2,7 @@
  (name opentelemetry_client_cohttp_lwt)
  (public_name opentelemetry-client-cohttp-lwt)
  (synopsis "Opentelemetry collector using cohttp+lwt+unix")
- (preprocess (pps lwt_ppx))
+ (preprocess
+  (pps lwt_ppx))
  (libraries opentelemetry lwt cohttp-lwt cohttp-lwt-unix pbrt mtime
    mtime.clock.os))
diff --git a/src/dune b/src/dune
index 99867650..f91ee2aa 100644
--- a/src/dune
+++ b/src/dune
@@ -2,7 +2,8 @@
  (name opentelemetry)
  (synopsis "API for opentelemetry instrumentation")
  (flags :standard -warn-error -a+8)
- (libraries ambient-context ptime ptime.clock.os pbrt threads opentelemetry.atomic)
+ (libraries ambient-context ptime ptime.clock.os pbrt threads
+   opentelemetry.atomic)
  (public_name opentelemetry))
 
 ; ### protobuf rules ###
diff --git a/src/opentelemetry.ml b/src/opentelemetry.ml
index 12f43f56..66ca27d2 100644
--- a/src/opentelemetry.ml
+++ b/src/opentelemetry.ml
@@ -682,7 +682,13 @@ module Span : sig
   val id : t -> Span_id.t
 
   type key_value =
-    string * [ `Int of int | `String of string | `Bool of bool | `Float of float | `None ]
+    string
+    * [ `Int of int
+      | `String of string
+      | `Bool of bool
+      | `Float of float
+      | `None
+      ]
 
   val create :
     ?kind:kind ->
@@ -719,7 +725,13 @@ end = struct
     | Span_kind_consumer
 
   type key_value =
-    string * [ `Int of int | `String of string | `Bool of bool | `Float of float | `None ]
+    string
+    * [ `Int of int
+      | `String of string
+      | `Bool of bool
+      | `Float of float
+      | `None
+      ]
 
   type nonrec status_code = status_status_code =
     | Status_code_unset
diff --git a/tests/bin/dune b/tests/bin/dune
index 7ac29933..7d0ebe08 100644
--- a/tests/bin/dune
+++ b/tests/bin/dune
@@ -6,8 +6,10 @@
 (executable
  (name emit1_cohttp)
  (modules emit1_cohttp)
- (preprocess (pps lwt_ppx))
- (libraries unix opentelemetry opentelemetry-lwt opentelemetry-client-cohttp-lwt lwt.unix))
+ (preprocess
+  (pps lwt_ppx))
+ (libraries unix opentelemetry opentelemetry-lwt
+   opentelemetry-client-cohttp-lwt lwt.unix))
 
 (executable
  (name cohttp_client)
diff --git a/tests/dune b/tests/dune
index 2d608045..c005f866 100644
--- a/tests/dune
+++ b/tests/dune
@@ -1,6 +1,4 @@
 (tests
  (names test_trace_context test_get_url)
- (libraries
-  opentelemetry
-  opentelemetry-client-ocurl
-  opentelemetry-client-cohttp-lwt))
+ (libraries opentelemetry opentelemetry-client-ocurl
+   opentelemetry-client-cohttp-lwt))