Also trigger warning when accessing a qualified sub-module marked as deprecated.

2015-12-01 17:39:10 +01:00 · 2015-12-01 17:39:10 +01:00 · ccff19a537
parent e9e3da700d
commit ccff19a537
1 changed files with 2 additions and 0 deletions
--- a/typing/env.ml
+++ b/typing/env.ml
@ -808,6 +808,8 @@ and lookup_module ~load lid env : Path.t =
      begin match get_components descr with
        Structure_comps c ->
          let (data, pos) = Tbl.find s c.comp_modules in
+          let (comps, _) = Tbl.find s c.comp_components in
+          report_deprecated lid comps.deprecated;
          Pdot(p, s, pos)
      | Functor_comps f ->
          raise Not_found