From f7398a453b7f7d018cc44aa8004b78116c1ca999 Mon Sep 17 00:00:00 2001 From: Rudi Grinberg Date: Mon, 13 May 2024 22:32:11 -0600 Subject: [PATCH] fix for 4.14 Signed-off-by: Rudi Grinberg --- ocaml-lsp-server/src/document_symbol.ml | 6 ------ 1 file changed, 6 deletions(-) diff --git a/ocaml-lsp-server/src/document_symbol.ml b/ocaml-lsp-server/src/document_symbol.ml index 1d9223e12..11f60626d 100644 --- a/ocaml-lsp-server/src/document_symbol.ml +++ b/ocaml-lsp-server/src/document_symbol.ml @@ -177,15 +177,9 @@ let binding_document_symbol (binding : Parsetree.value_binding) ~ppx | Some _, _ -> Property | _ -> Variable in - let detail = - Option.map binding.pvb_constraint ~f:(function - | Pvc_constraint { typ; _ } -> core_type_to_string typ - | Pvc_coercion { coercion; _ } -> core_type_to_string coercion) - in [ DocumentSymbol.create ~name ~kind - ?detail ~range:(Range.of_loc binding.pvb_loc) ~selectionRange:(Range.of_loc binding.pvb_pat.ppat_loc) ~children