Merge branch 'branch-registration'

1 files changed, 14 insertions, 0 deletions

diff --git a/lib/kernel/Prototype.ml b/lib/kernel/Prototype.ml
index 65de68f..b159e00 100644
--- a/lib/kernel/Prototype.ml
+++ b/lib/kernel/Prototype.ml
@@ -4,6 +4,8 @@ let mixture ps = Protocols.Handle.make @@
                      inherit Identity.of_id (* Should we allow the user to override this? *)
 
                      method protocols = ps
+
+                     method to_string = "mixture"
                    end
 
 let rec mixture_of value f =
@@ -19,6 +21,18 @@ module Error = struct
                                     empty
 end
 
+module Addressable = struct
+  module OfTree (S : Abstract.Storage.STORAGE) (K : Merkle.KEY) = struct
+    module Tree = Merkle.Make (S) (K)
+
+    let make ~node =
+      Protocols.Addressable.make @@
+        object
+          method address = Tree.hash_of node
+        end
+  end
+end
+
 module Associative = struct
   let of_properties props =
     Protocols.Associative.make @@