From 2e670964390b851e602f95dc15102bf8ed75be8e Mon Sep 17 00:00:00 2001 From: Patrick Ferris Date: Sun, 18 May 2025 11:54:06 +0100 Subject: [PATCH] Fix ocaml-lsp --- ocaml-lsp-server/src/semantic_highlighting.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ocaml-lsp-server/src/semantic_highlighting.ml b/ocaml-lsp-server/src/semantic_highlighting.ml index 61623a4d0..4f59bfeb3 100644 --- a/ocaml-lsp-server/src/semantic_highlighting.ml +++ b/ocaml-lsp-server/src/semantic_highlighting.ml @@ -707,7 +707,7 @@ end = struct | Ppat_construct (c, args) -> let process_args () = Option.iter args ~f:(fun (tvs, pat) -> - List.iter tvs ~f:(fun (tv : _ Asttypes.loc) -> + List.iter tvs ~f:(fun ((tv : _ Asttypes.loc), _) -> add_token tv.loc (Token_type.of_builtin TypeParameter)