diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-03-19 18:55:01 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-03-19 18:55:50 +0100 |
| commit | 27d173f94a68367d91def90c6d287138c733054b (patch) | |
| tree | cf3246635e2ed28c763259ac60d01aa9dc13f3f1 /lib/genarg.mli | |
| parent | 2cf8f76ea6a15d46b57d5c4ecf9513683561e284 (diff) | |
Removing dead code in Genarg.
Diffstat (limited to 'lib/genarg.mli')
| -rw-r--r-- | lib/genarg.mli | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/lib/genarg.mli b/lib/genarg.mli index ac13f545b..30b96c700 100644 --- a/lib/genarg.mli +++ b/lib/genarg.mli @@ -242,13 +242,3 @@ val wit_list : ('a, 'b, 'c) genarg_type -> ('a list, 'b list, 'c list) genarg_ty val wit_opt : ('a, 'b, 'c) genarg_type -> ('a option, 'b option, 'c option) genarg_type val wit_pair : ('a1, 'b1, 'c1) genarg_type -> ('a2, 'b2, 'c2) genarg_type -> ('a1 * 'a2, 'b1 * 'b2, 'c1 * 'c2) genarg_type - -(** {5 Magic used by the parser} *) - -val register_name0 : ('a, 'b, 'c) genarg_type -> string -> unit -(** Used by the extension to give a name to types. The string should be the - absolute path of the argument witness, e.g. - [register_name0 wit_toto "MyArg.wit_toto"]. *) - -val get_name0 : string -> string -(** Return the absolute path of a given witness. *) |