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/Schematics.ml | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'lib/protocols/Schematics.ml') diff --git a/lib/protocols/Schematics.ml b/lib/protocols/Schematics.ml index 49d8586..238fa99 100644 --- a/lib/protocols/Schematics.ml +++ b/lib/protocols/Schematics.ml @@ -17,10 +17,8 @@ class type implementation = object end type Handle.protocol += Schematics of implementation - type t = implementation let make impl = Schematics (impl :> implementation) -let from handle = - Handle.into handle (function Schematics impl -> Some impl | _ -> None) +let from handle = Handle.into handle (function Schematics impl -> Some impl | _ -> None) let describe impl = Handle.invoke impl (fun o -> o#describe ()) -- cgit v1.2.3