diff --git a/src/frontend/query_commands.ml b/src/frontend/query_commands.ml index c03420cc7..5901c783d 100644 --- a/src/frontend/query_commands.ml +++ b/src/frontend/query_commands.ml @@ -523,7 +523,8 @@ let dispatch pipeline (type a) : a Query_protocol.t -> a = let attrs = Browse_raw.node_attributes n in List.exists ~f:(fun (a:Typedtree.attribute) -> let loc = a.attr_loc in - loc.loc_start.pos_cnum <= pos.pos_cnum && loc.loc_end.pos_cnum >= pos.pos_cnum + loc.loc_start.pos_cnum <= pos.pos_cnum + && loc.loc_end.pos_cnum >= pos.pos_cnum ) attrs && has_a_deriver in let has_deriver = List.exists ~f:check_ppx node in