diff --git a/src/analysis/index_format.ml b/src/analysis/index_format.ml index ce108c9155..be47991df0 100644 --- a/src/analysis/index_format.ml +++ b/src/analysis/index_format.ml @@ -11,7 +11,6 @@ module Lid : Set.OrderedType with type t = Longident.t Location.loc = struct | n -> n let compare (t1 : t) (t2 : t) = - (* TODO CHECK...*) match compare_pos t1.loc.loc_start t2.loc.loc_start with | 0 -> compare_pos t1.loc.loc_end t2.loc.loc_end | n -> n