From b2ff91614a7f1c7dd54a43bbfe88bbb6694b0a71 Mon Sep 17 00:00:00 2001 From: Estevan Castilho Date: Sat, 24 Oct 2026 01:50:35 +0000 Subject: Formatting --- lib/kernel/EphemeralRelation.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lib/kernel/EphemeralRelation.ml') diff --git a/lib/kernel/EphemeralRelation.ml b/lib/kernel/EphemeralRelation.ml index 8843d11..8672424 100644 --- a/lib/kernel/EphemeralRelation.ml +++ b/lib/kernel/EphemeralRelation.ml @@ -138,7 +138,8 @@ let enumerate_owned relation = end ) let asking f relation = - Protocols.Handle.releasing relation (fun () -> Result.bind (Protocols.Relation.require relation) f) + Protocols.Handle.releasing relation (fun () -> + Result.bind (Protocols.Relation.require relation) f ) let generated ?program ?within name description value = let invoking f () = @@ -163,8 +164,7 @@ module Make (S : Abstract.Storage.STORAGE) = struct module SI = Storage.Make (S) module R = SubstantialRelation.Make (S) - let restore ?program ?within ({Persisted.name; schematics; pointer} : Persisted.t) - description = + let restore ?program ?within ({Persisted.name; schematics; pointer} : Persisted.t) description = generated ?program ?within name description {name= Some name; schematics= `Persisted schematics; pointer= Some pointer} -- cgit v1.2.3