some interfaces improved

[helm.git] / helm / software / lambda-delta / common / hierarchy.mli

diff --git a/helm/software/lambda-delta/common/hierarchy.mli b/helm/software/lambda-delta/common/hierarchy.mli
index a0790321cefca7880b778b73f08cc416066c62e2..19e94305453935e2641a95bcfce28c6fa9a90db1 100644 (file)
--- a/helm/software/lambda-delta/common/hierarchy.mli
+++ b/helm/software/lambda-delta/common/hierarchy.mli
@@ -11,12 +11,12 @@
 
 type graph
 
-val set_sorts: (int -> 'a) -> string list -> int -> 'a
+val set_sorts: string list -> int -> int
 
 val get_sort: (unit -> 'a) -> (string -> 'a) -> int -> 'a
 
 val graph_of_string: (unit -> 'a) -> (graph -> 'a) -> string -> 'a
 
-val string_of_graph: (string -> 'a) -> graph -> 'a
+val string_of_graph: graph -> string
 
-val apply: (int -> 'a) -> graph -> int -> 'a
+val apply: graph -> int -> int