diff options
| author | Pierre-Marie Pédrot | 2016-03-17 14:42:51 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-03-17 14:51:20 +0100 |
| commit | 2537e84ba9fa92db6cfd3d7f5e400b1716c31246 (patch) | |
| tree | c7505db28eee92bc1855b6ee0cf275381b4aa106 /lib/genarg.mli | |
| parent | 92a6a72ec4680d0f241e8b1ddd7b87f7ad11f65e (diff) | |
Removing the registering of default values for generic arguments.
Diffstat (limited to 'lib/genarg.mli')
| -rw-r--r-- | lib/genarg.mli | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lib/genarg.mli b/lib/genarg.mli index ce0536cf49..d509649f22 100644 --- a/lib/genarg.mli +++ b/lib/genarg.mli @@ -110,11 +110,11 @@ end type 'a uniform_genarg_type = ('a, 'a, 'a) genarg_type (** Alias for concision when the three types agree. *) -val make0 : 'raw option -> ?dyn:'top Val.tag -> string -> ('raw, 'glob, 'top) genarg_type +val make0 : ?dyn:'top Val.tag -> string -> ('raw, 'glob, 'top) genarg_type (** Create a new generic type of argument: force to associate unique ML types at each of the three levels. *) -val create_arg : 'raw option -> ?dyn:'top Val.tag -> string -> ('raw, 'glob, 'top) genarg_type +val create_arg : ?dyn:'top Val.tag -> string -> ('raw, 'glob, 'top) genarg_type (** Alias for [make0]. *) (** {5 Specialized types} *) @@ -250,8 +250,6 @@ val wit_pair : ('a1, 'b1, 'c1) genarg_type -> ('a2, 'b2, 'c2) genarg_type -> (** {5 Magic used by the parser} *) -val default_empty_value : ('raw, 'glb, 'top) genarg_type -> 'raw option - 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. |