1. camlspotter
  2. ocamlspot

Commits

camlspotter  committed 6d630ab

module type spot location tweaks

  • Participants
  • Parent commits 8c812ee
  • Branches 4.01.0.2.2.0

Comments (0)

Files changed (1)

File spot.ml

View file
       | Some v -> v
     with
     | Not_found ->
+        record mexp.mod_loc (Mod_type mexp.mod_type);
 	Module_expr.Table.replace cache_module_expr mexp None;
 	let res = module_expr_desc mexp.mod_desc in
 	Module_expr.Table.replace cache_module_expr mexp (Some res);
         record_use loc' Kind.Exception path;
         [ with_record_def loc & AStr_exception id ]
     | Tstr_module (id, {loc}, mexp) ->
-        record loc (Mod_type mexp.mod_type);
+        record loc0 (Mod_type mexp.mod_type);
         [ with_record_def loc & AStr_module (id, module_expr mexp) ]
     | Tstr_recmodule (idmexps) ->
 	List.map (fun (id, {loc}, _, mexp) ->