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/Directory.ml | 4 ---- 1 file changed, 4 deletions(-) (limited to 'lib/protocols/Directory.ml') diff --git a/lib/protocols/Directory.ml b/lib/protocols/Directory.ml index 0d2507e..232a47e 100644 --- a/lib/protocols/Directory.ml +++ b/lib/protocols/Directory.ml @@ -4,13 +4,9 @@ class type implementation = object end type Handle.protocol += Directory of implementation - type t = implementation let make impl = Directory (impl :> implementation) - let from handle = Handle.into handle (function Directory impl -> Some impl | _ -> None) - let list i = Handle.invoke i (fun o -> o#list) - let find i name = Handle.invoke i (fun o -> o#find name) -- cgit v1.2.3