diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/type_internal.ml | 3 | ||||
| -rw-r--r-- | src/type_internal.mli | 5 |
2 files changed, 6 insertions, 2 deletions
diff --git a/src/type_internal.ml b/src/type_internal.ml index 6d697012..34d75943 100644 --- a/src/type_internal.ml +++ b/src/type_internal.ml @@ -185,7 +185,8 @@ type bounds_env = type t_params = (string * kind) list type tannot = | NoTyp - | Base of (t_params * t) * tag * nexp_range list * effect * bounds_env + (*See .mli for purpose of attributes *) + | Base of (t_params * t) * tag * nexp_range list * effect * effect * bounds_env (* First tannot is the most polymorphic version; the list includes all variants. All included t are Tfn *) | Overload of tannot * bool * tannot list diff --git a/src/type_internal.mli b/src/type_internal.mli index d1396367..64bcca14 100644 --- a/src/type_internal.mli +++ b/src/type_internal.mli @@ -155,7 +155,10 @@ type bounds_env = type t_params = (string * kind) list type tannot = | NoTyp - | Base of (t_params * t) * tag * nexp_range list * effect * bounds_env + (*A type of a function, variable, expression, etc, that is not overloaded: + the first effect is for local effects to the current expression or variable + the second effect is the cummulative effects of any contained subexpressions where applicable, pure otherwise *) + | Base of (t_params * t) * tag * nexp_range list * effect * effect * bounds_env (* First tannot is the most polymorphic version; the list includes all variants. All t to be Tfn *) | Overload of tannot * bool * tannot list |