feature(lsp): add [Text_document.position_encoding]

Signed-off-by: Rudi Grinberg <me@rgrinberg.com>
ocaml · Apr 30, 2023 · ee6cc02 · ee6cc02
1 parent 07ba12b
commit ee6cc02
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/lsp/src/text_document.ml b/lsp/src/text_document.ml
@@ -29,6 +29,8 @@ type t =
   ; position_encoding : [ `UTF8 | `UTF16 ]
   }
 
+let position_encoding t = t.position_encoding
+
 let make ~position_encoding
     { DidOpenTextDocumentParams.textDocument =
         { TextDocumentItem.languageId; text; uri; version }

diff --git a/lsp/src/text_document.mli b/lsp/src/text_document.mli
@@ -9,6 +9,8 @@ val languageId : t -> string
 
 val documentUri : t -> Uri0.t
 
+val position_encoding : t -> [ `Utf16 | `Utf8 ]
+
 val version : t -> int
 
 val text : t -> string