From 584fbca6d920e9a9f91d451667f9380714ac2175 Mon Sep 17 00:00:00 2001 From: Marcos Magueta Date: Fri, 25 Sep 2026 21:51:33 -0300 Subject: dune fmt --- lib/protocols/Associative.ml | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'lib/protocols/Associative.ml') diff --git a/lib/protocols/Associative.ml b/lib/protocols/Associative.ml index 66de5ed..16fdcc8 100644 --- a/lib/protocols/Associative.ml +++ b/lib/protocols/Associative.ml @@ -3,14 +3,13 @@ class type implementation = object end type Handle.protocol += Associative of implementation - type t = implementation let make impl = Associative (impl :> implementation) - let from handle = Handle.into handle (function Associative impl -> Some impl | _ -> None) -let update i key value = Handle.invoke i (fun o -> - let open Utilities.Result in - let* h = o#update key value in - Handle.require from h) +let update i key value = + Handle.invoke i (fun o -> + let open Utilities.Result in + let* h = o#update key value in + Handle.require from h ) -- cgit v1.2.3