diff options
| author | Gaëtan Gilbert | 2020-11-16 17:38:33 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-11-16 17:58:56 +0100 |
| commit | f3c24a6246249db25bcc5c4a3e34040a8667ca02 (patch) | |
| tree | 86eedf85f4abc0a530646ef2168642e69928e933 /kernel/type_errors.mli | |
| parent | 19f7d82edd68fb8940c7bcd73a229e957dee260c (diff) | |
Improve bad variance error message: mention expected and actual variances
Diffstat (limited to 'kernel/type_errors.mli')
| -rw-r--r-- | kernel/type_errors.mli | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/type_errors.mli b/kernel/type_errors.mli index 7a7dba68b3..bcdcab9db7 100644 --- a/kernel/type_errors.mli +++ b/kernel/type_errors.mli @@ -70,7 +70,7 @@ type ('constr, 'types) ptype_error = | DisallowedSProp | BadRelevance | BadInvert - | BadVariance of Level.t + | BadVariance of { lev : Level.t; expected : Variance.t; actual : Variance.t } type type_error = (constr, types) ptype_error @@ -147,7 +147,7 @@ val error_bad_relevance : env -> 'a val error_bad_invert : env -> 'a -val error_bad_variance : env -> Level.t -> 'a +val error_bad_variance : env -> lev:Level.t -> expected:Variance.t -> actual:Variance.t -> 'a val map_pguard_error : ('c -> 'd) -> 'c pguard_error -> 'd pguard_error val map_ptype_error : ('c -> 'd) -> ('c, 'c) ptype_error -> ('d, 'd) ptype_error |