diff options
Diffstat (limited to '')
| -rw-r--r-- | test/Helpers.ml | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/test/Helpers.ml b/test/Helpers.ml index aa24160..784170c 100644 --- a/test/Helpers.ml +++ b/test/Helpers.ml @@ -33,12 +33,12 @@ module Storage = struct module Make (S : Abstract.Storage.STORAGE) (C : CONFIGURATOR) = struct 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 (f conn) - end - |> condition_as_failure + begin + let open Utilities.Result in + let* conn = S.connect (C.configure dir) in + Ok (f conn) + end + |> condition_as_failure end end end |
