review: hide loc_of_declaration compatibility helper

Author: Octachron

src/model/compat.cppo.ml

@@ -239,25 +239,25 @@ let empty_map = Shape.Uid.Map.empty
 let shape_info_of_cmt_infos : Cmt_format.cmt_infos -> (shape * uid_to_loc) option =
  fun x -> Option.map (fun s -> (s, x.cmt_uid_to_loc)) x.cmt_impl_shape
 #else
-let loc_of_declaration =
-  let open Typedtree in
-  function
-  | Value v -> v.val_loc
-  | Value_binding vb -> vb.vb_pat.pat_loc
-  | Type t -> t.typ_loc
-  | Constructor c -> c.cd_loc
-  | Extension_constructor e -> e.ext_loc
-  | Label l -> l.ld_loc
-  | Module m -> m.md_loc
-  | Module_substitution ms -> ms.ms_loc
-  | Module_binding mb -> mb.mb_loc
-  | Module_type mt -> mt.mtd_loc
-  | Class cd -> cd.ci_id_name.loc
-  | Class_type ctd -> ctd.ci_id_name.loc
-
 
 let shape_info_of_cmt_infos : Cmt_format.cmt_infos -> (shape * uid_to_loc) option =
- fun x -> Option.map (fun s -> (s, Shape.Uid.Tbl.map x.cmt_uid_to_decl loc_of_declaration)) x.cmt_impl_shape
+  let loc_of_declaration =
+    let open Typedtree in
+    function
+    | Value v -> v.val_loc
+    | Value_binding vb -> vb.vb_pat.pat_loc
+    | Type t -> t.typ_loc
+    | Constructor c -> c.cd_loc
+    | Extension_constructor e -> e.ext_loc
+    | Label l -> l.ld_loc
+    | Module m -> m.md_loc
+    | Module_substitution ms -> ms.ms_loc
+    | Module_binding mb -> mb.mb_loc
+    | Module_type mt -> mt.mtd_loc
+    | Class cd -> cd.ci_id_name.loc
+    | Class_type ctd -> ctd.ci_id_name.loc
+  in
+  fun x -> Option.map (fun s -> (s, Shape.Uid.Tbl.map x.cmt_uid_to_decl loc_of_declaration)) x.cmt_impl_shape
 #endif
 
 #else