diff options
| author | Maxime Dénès | 2017-10-09 15:33:45 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-10-09 15:33:45 +0200 |
| commit | d5534aab708e5d3bd6c3633dc9d028016eeb3076 (patch) | |
| tree | b74bcffce9869dc8aaec115e4614fb7e89ac5a3d /kernel/mod_typing.ml | |
| parent | 73a858469479651cc4baf631a45a9ff1d69d0c66 (diff) | |
| parent | d19e8bafe6cc18cc47bbb3e3f7aa0d2d719014c0 (diff) | |
Merge PR #1109: Handle some misc todos
Diffstat (limited to 'kernel/mod_typing.ml')
| -rw-r--r-- | kernel/mod_typing.ml | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/kernel/mod_typing.ml b/kernel/mod_typing.ml index d2b41aae98..8568bf14b8 100644 --- a/kernel/mod_typing.ml +++ b/kernel/mod_typing.ml @@ -166,16 +166,10 @@ let rec check_with_mod env struc (idl,mp1) mp equiv = let mb_mp1 = lookup_module mp1 env in let mtb_mp1 = module_type_of_module mb_mp1 in let cst = match old.mod_expr with - | Abstract -> - begin - try - let mtb_old = module_type_of_module old in - let chk_cst = Subtyping.check_subtypes env' mtb_mp1 mtb_old in - Univ.ContextSet.add_constraints chk_cst old.mod_constraints - with Failure _ -> - (* TODO: where can a Failure come from ??? *) - error_incorrect_with_constraint lab - end + | Abstract -> + let mtb_old = module_type_of_module old in + let chk_cst = Subtyping.check_subtypes env' mtb_mp1 mtb_old in + Univ.ContextSet.add_constraints chk_cst old.mod_constraints | Algebraic (NoFunctor (MEident(mp'))) -> check_modpath_equiv env' mp1 mp'; old.mod_constraints |