diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/protocols/Handle.ml | 1 | ||||
| -rw-r--r-- | lib/protocols/Handle.mli | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/lib/protocols/Handle.ml b/lib/protocols/Handle.ml index cb78cf2..378b8c8 100644 --- a/lib/protocols/Handle.ml +++ b/lib/protocols/Handle.ml @@ -49,6 +49,7 @@ let equal h1 h2 = Concepts.Hash.hash_equals (object_of h1)#hash (object_of h2)#hash let hash h = (object_of h)#hash +let protocols h = (object_of h)#protocols let release ({ valid; _ } as handle) = let o = object_of handle in diff --git a/lib/protocols/Handle.mli b/lib/protocols/Handle.mli index 5640b14..c5c0d6a 100644 --- a/lib/protocols/Handle.mli +++ b/lib/protocols/Handle.mli @@ -23,5 +23,6 @@ val equal : t -> t -> bool val release : t -> unit val hash : t -> Concepts.Hash.hash +val protocols : t -> protocol list val require : (t -> 'a interface option) -> t -> ('a interface, Concepts.Condition.condition) result |