diff --git a/analysis/src/process_cmt.ml b/analysis/src/process_cmt.ml index 8c5e7a64e9..36885df126 100644 --- a/analysis/src/process_cmt.ml +++ b/analysis/src/process_cmt.ml @@ -754,7 +754,6 @@ let file_for_cmt_infos ~module_name ~uri | Interface signature -> let structure = for_signature ~name:module_name ~env signature.sig_items in {uri; module_name = cmt_modname; stamps = env.stamps; structure} - | _ -> File.create module_name uri let file_for_cmt ~state ~module_name ~cmt ~uri = match Hashtbl.find_opt state.cmt_cache cmt with diff --git a/analysis/src/process_extra.ml b/analysis/src/process_extra.ml index b0d96951dc..4f14dc3136 100644 --- a/analysis/src/process_extra.ml +++ b/analysis/src/process_extra.ml @@ -134,7 +134,6 @@ let extra_for_cmt ~(iterator : Tast_iterator.iterator) in extra_for_signature_items ~iterator items; extra_for_parts parts - | _ -> extra_for_structure_items ~iterator [] let add_for_path ~env ~extra path lident loc typ tip = let ident_name = Longident.last lident in