From b31447a53afb5f0a89793341055440a1b672a675 Mon Sep 17 00:00:00 2001 From: Filipe Marques Date: Tue, 17 Dec 2024 18:06:01 +0000 Subject: [PATCH] Dune fmt --- bin/dune | 2 +- src/dune | 1 - src/instrumentation/value.ml | 3 ++- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/bin/dune b/bin/dune index 88c133e..3741190 100644 --- a/bin/dune +++ b/bin/dune @@ -6,4 +6,4 @@ (:standard -open Explode_js_prelude)) (libraries bos cmdliner explode_js explode_js.instrumentation) (instrumentation - (backend bisect_ppx))) + (backend bisect_ppx))) diff --git a/src/dune b/src/dune index d661cf8..45227cc 100644 --- a/src/dune +++ b/src/dune @@ -40,4 +40,3 @@ (explode_js nodejs))) (files (esl_symbolic.js as esl_symbolic.js))) - diff --git a/src/instrumentation/value.ml b/src/instrumentation/value.ml index e08cc30..74069aa 100644 --- a/src/instrumentation/value.ml +++ b/src/instrumentation/value.ml @@ -31,7 +31,8 @@ module Parser = struct let model = Util.member "model" json |> Util.to_assoc in List.fold_left add_binding Map.empty model - let from_file (fname : string) : (t Map.t, [> Instrument_result.err ]) result = + let from_file (fname : string) : (t Map.t, [> Instrument_result.err ]) result + = let open Result in let* json = try Ok (Json.from_file ~fname fname)