diff options
Diffstat (limited to 'lib/protocols/Schematics.ml')
| -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 ()) |