X-Git-Url: http://git.annexia.org/?p=virt-similarity.git;a=blobdiff_plain;f=cladogram.mli;h=cfd0b028bcac30ffbcfc1ac8f7ae8da7c96f4a68;hp=95d9c4ec0f18982058e93bef23fde94a696ef72a;hb=e4f09c77f0cc9335e20790a150a3539889f331de;hpb=5845b6fe45d4dbe13c1bb2565231e2ab897b182d

diff --git a/cladogram.mli b/cladogram.mli
index 95d9c4e..cfd0b02 100644
--- a/cladogram.mli
+++ b/cladogram.mli
@@ -20,8 +20,10 @@
 
 type t =
   | Leaf of int                 (** A single disk image (index of). *)
-  | Node of t list              (** An interior node in the tree. *)
+  | Node of t list * int        (** An interior node in the tree. *)
 
 val images_in_subtree : t -> int list
 
+val construct_cladogram : int array array -> int -> t
+
 val format_cladogram : ?format_leaf:(int -> string) -> t -> string list