- we implemented the hierarchy and sort names declaration in text parser

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

diff --git a/helm/software/lambda-delta/common/library.mli b/helm/software/lambda-delta/common/library.mli
index 95d5ba9b1fa167ed620232cce053c5b86a4cc6d6..97a9692195a6c95845e74eb63bc585a139547d4d 100644 (file)
--- a/helm/software/lambda-delta/common/library.mli
+++ b/helm/software/lambda-delta/common/library.mli
@@ -13,13 +13,12 @@ type och = string -> unit
 
 type attr = string * string
 
-type 'a pp = (och -> int -> 'a) -> och -> int -> 'a
+type pp = och -> int -> unit
 
 val export_entity:
-   (unit ->'a) -> ('term -> 'a pp) -> 
-   bool -> Hierarchy.graph -> 'term Entity.entity -> 'a
+   ('term -> pp) -> bool -> 'term Entity.entity -> unit
 
-val tag: string -> attr list -> ?contents:'a pp -> 'a pp 
+val tag: string -> attr list -> ?contents:pp -> pp 
 
 val sort: string
 
@@ -50,9 +49,3 @@ val arity: int -> attr
 val name: Entity.attrs -> attr
 
 val mark: Entity.attrs -> attr
-
-val old_export_entity:
-   (Format.formatter -> 'term -> unit) -> 
-   bool -> Hierarchy.graph -> 'term Entity.entity -> unit
-
-val old_name: Format.formatter -> Entity.attrs -> unit