better linting

ocaml · Apr 4, 2024 · 9868711 · 9868711
1 parent 0f51db0
commit 9868711
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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