diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-09-25 21:51:33 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2026-09-25 21:51:33 -0300 |
| commit | 584fbca6d920e9a9f91d451667f9380714ac2175 (patch) | |
| tree | a163b916a6f8cb550c8b38ceb01ab01558687a40 /lib/protocols/Schematics.ml | |
| parent | c7b754e96714eeeb9d315ee3de402d73a27d47db (diff) | |
| download | RNT-584fbca6d920e9a9f91d451667f9380714ac2175.tar.gz RNT-584fbca6d920e9a9f91d451667f9380714ac2175.zip | |
dune fmt
Diffstat (limited to '')
| -rw-r--r-- | lib/protocols/Schematics.ml | 4 |
1 files changed, 1 insertions, 3 deletions
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 ()) |