diff options
| author | glondu | 2010-11-02 15:58:58 +0000 |
|---|---|---|
| committer | glondu | 2010-11-02 15:58:58 +0000 |
| commit | 493f2bd27e23a8f56ec4cd8a65dde19f95380662 (patch) | |
| tree | 3a1b050688137c74e585b2ccd9e383cb00c73080 /kernel/univ.mli | |
| parent | cce4c64a95e5f835cfd28bb3589c535903cbd011 (diff) | |
More generic Univ.dump_universes
Instead of formatting directly to an output channel, provide an output
function that handles formatting and I/O. This allows changing the
output format.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13610 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/univ.mli')
| -rw-r--r-- | kernel/univ.mli | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/kernel/univ.mli b/kernel/univ.mli index 3d4f97d515..85e2278911 100644 --- a/kernel/univ.mli +++ b/kernel/univ.mli @@ -85,6 +85,8 @@ val pr_constraints : constraints -> Pp.std_ppcmds (** {6 Dumping to a file } *) -val dump_universes : out_channel -> universes -> unit +val dump_universes : + ([> `Lt | `Le | `Eq ] -> string -> string -> unit) -> + universes -> unit val hcons1_univ : universe -> universe |