clean up

Author: mununki

jscomp/ml/typemod.ml

@@ -1855,12 +1855,11 @@ let report_error ppf = function
               types (other than when replacing a type constructor with @ \
               a type constructor with the same arguments).@]"
   | Repeated_name(kind, name, repeated_loc) ->
-      let start_line = repeated_loc.loc_start.pos_lnum in
-      let start_col = repeated_loc.loc_start.pos_cnum - repeated_loc.loc_start.pos_bol in
-      let end_col = repeated_loc.loc_end.pos_cnum - repeated_loc.loc_end.pos_bol in
+      let (_, start_line, start_char) = Location.get_pos_info repeated_loc.loc_start in
+      let (_, _, end_char) = Location.get_pos_info repeated_loc.loc_end in
       fprintf ppf
         "@[Multiple definition of the %s name %s at line %d, characters %d-%d.@ \
-           Names must be unique in a given structure or signature.@]" kind name start_line start_col end_col
+           Names must be unique in a given structure or signature.@]" kind name start_line start_char end_char
   | Non_generalizable typ ->
       fprintf ppf
         "@[The type of this expression,@ %a,@ \