diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/protocols/Handle.ml | 2 | ||||
| -rw-r--r-- | lib/protocols/Handle.mli | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lib/protocols/Handle.ml b/lib/protocols/Handle.ml index 1868737..9fd1f29 100644 --- a/lib/protocols/Handle.ml +++ b/lib/protocols/Handle.ml @@ -18,7 +18,7 @@ let object_of { valid; refers_to } = let interface_of handle interface = { handle; interface } -let make o = { valid = ref true; refers_to = o } +let make o = { valid = ref true; refers_to = (o :> obj) } let into handle f = List.find_map f (object_of handle)#protocols diff --git a/lib/protocols/Handle.mli b/lib/protocols/Handle.mli index 6fe175b..099f563 100644 --- a/lib/protocols/Handle.mli +++ b/lib/protocols/Handle.mli @@ -10,7 +10,7 @@ class type obj = object method protocols : protocol list end -val make : obj -> t +val make : #obj -> t val into : t -> (protocol -> 'a option) -> 'a interface option |