_

Signed-off-by: Rudi Grinberg <me@rgrinberg.com>
ocaml · May 14, 2024 · 80fb260 · 80fb260
1 parent 277efb6
commit 80fb260
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ocaml-lsp-server/src/document_symbol.ml b/ocaml-lsp-server/src/document_symbol.ml
@@ -70,7 +70,7 @@ let type_ext_document_symbol (ext : Parsetree.type_extension) : DocumentSymbol.t
     List.fold_left
       children
       ~init:(Range.of_loc ext.ptyext_path.loc)
-      ~f:(fun range child ->
+      ~f:(fun (range : Range.t) (child : DocumentSymbol.t) ->
         let start =
           match Position.compare range.start child.range.start with
           | Lt | Eq -> range.start