diff options
| author | Pierre-Marie Pédrot | 2019-05-06 22:00:01 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-05-06 22:00:01 +0200 |
| commit | 45dcc1248cd2bdf00a2bcead69d6b2ed78afc51d (patch) | |
| tree | fb9cfd6ca4e818ababa2ff307d9dec19736d6bc6 /checker/mod_checking.ml | |
| parent | 1a670a23ad54cf5a3c2d2bbf4939f78f4f4b6b35 (diff) | |
| parent | 23cd71a9d75e8307b0d85e9e287706cbc7b96ae9 (diff) | |
Merge PR #10068: Coqchk: encapsulating an anomaly NotConvertible into a proper user-level typing error
Reviewed-by: ppedrot
Diffstat (limited to 'checker/mod_checking.ml')
| -rw-r--r-- | checker/mod_checking.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/checker/mod_checking.ml b/checker/mod_checking.ml index b86d491d72..1dd16f1630 100644 --- a/checker/mod_checking.ml +++ b/checker/mod_checking.ml @@ -33,7 +33,8 @@ let check_constant_declaration env kn cb = match Environ.body_of_constant_body env cb with | Some bd -> let j = infer env' (fst bd) in - conv_leq env' j.uj_type ty + (try conv_leq env' j.uj_type ty + with NotConvertible -> Type_errors.error_actual_type env j ty) | None -> () in let env = |