\ / This software is distributed as is, NO WARRANTY.
V_______________________________________________________________ *)
-val export_unit:
- (Format.formatter -> 'bind Unit.entry -> unit) ->
- bool -> Hierarchy.graph -> 'bind Unit.unit -> unit
+type 'a out = (unit -> 'a) -> string -> 'a
+(*
+val export_entity:
+ ('a och -> string -> 'bind Entity.entry -> 'a) ->
+ string -> bool -> Hierarchy.graph -> 'bind Entity.entity -> 'a
+*)
+val old_export_entity:
+ (Format.formatter -> 'bind Entity.entry -> unit) ->
+ bool -> Hierarchy.graph -> 'bind Entity.entity -> unit