format

Makefile

@@ -14,7 +14,7 @@ protoc-gen:
 	FORCE_GENPROTO=true @dune build @lint
 
 format:
-	@dune build @fmt
+	@dune build @fmt --auto-promote
 
 WATCH ?= @all
 watch:

dune

@@ -1,4 +1,9 @@
 (env
  (_
-  (flags :standard -warn-error -a+8 -w +a-4-30-40-41-42-44-48-70
+  (flags
-    -strict-sequence)))
+   :standard
+   -warn-error
+   -a+8
+   -w
+   +a-4-30-40-41-42-44-48-70
+   -strict-sequence)))

src/ambient-context/dune

@@ -4,8 +4,13 @@
  (synopsis
   "Abstraction over thread-local storage and fiber-local storage mechanisms")
  (private_modules hmap_key_)
- (libraries thread-local-storage threads atomic
+ (libraries
+  thread-local-storage
+  threads
+  atomic
   opentelemetry.ambient-context.types
-  (select hmap_key_.ml from
+  (select
-          (rcontext hmap -> hmap_key_.rcontext.ml)
+   hmap_key_.ml
-          (-> hmap_key_.new.ml))))
+   from
+   (rcontext hmap -> hmap_key_.rcontext.ml)
+   (-> hmap_key_.new.ml))))

src/atomic/gen.ml

@@ -51,13 +51,13 @@ let () =
   let version = Scanf.sscanf Sys.ocaml_version "%d.%d.%s" (fun x y _ -> x, y) in
   write_file "atomic.ml"
     (if version >= (4, 12) then
-      atomic_after_412
+       atomic_after_412
-    else
+     else
-      atomic_before_412);
+       atomic_before_412);
   copy_file
     (if version >= (4, 12) then
-      "atomic.post412.mli"
+       "atomic.post412.mli"
-    else
+     else
-      "atomic.pre412.mli")
+       "atomic.pre412.mli")
     "atomic.mli";
   ()

src/client-cohttp-lwt/dune

@@ -4,5 +4,11 @@
  (synopsis "Opentelemetry collector using cohttp+lwt+unix")
  (preprocess
   (pps lwt_ppx))
- (libraries opentelemetry lwt cohttp-lwt cohttp-lwt-unix pbrt mtime
+ (libraries
-   mtime.clock.os))
+  opentelemetry
+  lwt
+  cohttp-lwt
+  cohttp-lwt-unix
+  pbrt
+  mtime
+  mtime.clock.os))

src/client-ocurl/dune

@@ -1,5 +1,13 @@
 (library
  (name opentelemetry_client_ocurl)
  (public_name opentelemetry-client-ocurl)
- (libraries opentelemetry opentelemetry.atomic curl pbrt threads mtime
+ (libraries
-   mtime.clock.os ezcurl ezcurl.core))
+  opentelemetry
+  opentelemetry.atomic
+  curl
+  pbrt
+  threads
+  mtime
+  mtime.clock.os
+  ezcurl
+  ezcurl.core))

src/core/dune

@@ -2,6 +2,13 @@
  (name opentelemetry)
  (synopsis "API for opentelemetry instrumentation")
  (flags :standard -warn-error -a+8)
- (libraries opentelemetry.proto opentelemetry.ambient-context ptime ptime.clock.os pbrt threads
+ (libraries
-   opentelemetry.atomic hmap)
+  opentelemetry.proto
+  opentelemetry.ambient-context
+  ptime
+  ptime.clock.os
+  pbrt
+  threads
+  opentelemetry.atomic
+  hmap)
  (public_name opentelemetry))

tests/bin/dune

@@ -8,11 +8,18 @@
  (modules emit1_cohttp)
  (preprocess
   (pps lwt_ppx))
- (libraries unix opentelemetry opentelemetry-lwt
+ (libraries
-   opentelemetry-client-cohttp-lwt lwt.unix))
+  unix
+  opentelemetry
+  opentelemetry-lwt
+  opentelemetry-client-cohttp-lwt
+  lwt.unix))
 
 (executable
  (name cohttp_client)
  (modules cohttp_client)
- (libraries cohttp-lwt-unix opentelemetry opentelemetry-client-cohttp-lwt
+ (libraries
-   opentelemetry-cohttp-lwt))
+  cohttp-lwt-unix
+  opentelemetry
+  opentelemetry-client-cohttp-lwt
+  opentelemetry-cohttp-lwt))

tests/core/dune

@@ -1,5 +1,4 @@
-
 (tests
- (names test_trace_context )
+ (names test_trace_context)
  (package opentelemetry)
  (libraries opentelemetry))