From 584fbca6d920e9a9f91d451667f9380714ac2175 Mon Sep 17 00:00:00 2001 From: Marcos Magueta Date: Fri, 25 Sep 2026 21:51:33 -0300 Subject: dune fmt --- test/Helpers.ml | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'test/Helpers.ml') diff --git a/test/Helpers.ml b/test/Helpers.ml index e859932..42cf8a5 100644 --- a/test/Helpers.ml +++ b/test/Helpers.ml @@ -34,17 +34,17 @@ module Storage = struct module SI = Kernel.Storage.Make (S) let store_schema tx attributes = - Concepts.Encoding.Bencode.(Dict (List.map (fun a -> (a, String "string")) attributes) |> to_blob) + Concepts.Encoding.Bencode.(Dict (List.map (fun a -> a, String "string") attributes) |> to_blob) |> SI.store_blob tx let with_connection f dir () = with_temporary_directory dir begin fun dir -> - begin - let open Utilities.Result in - let* conn = S.connect (C.configure dir) in - Ok (Fun.protect ~finally:(fun () -> S.disconnect conn) (fun () -> f conn)) - end - |> condition_as_failure + begin + let open Utilities.Result in + let* conn = S.connect (C.configure dir) in + Ok (Fun.protect ~finally:(fun () -> S.disconnect conn) (fun () -> f conn)) + end + |> condition_as_failure end end end -- cgit v1.2.3