add back note

haskell · Jan 1, 2024 · 40fe213 · 40fe213
1 parent 9b12397
commit 40fe213
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lsp/src/Language/LSP/VFS.hs b/lsp/src/Language/LSP/VFS.hs
@@ -457,6 +457,7 @@ codePointRangeToRange vFile (CodePointRange b e) =
 -}
 positionToCodePointPosition :: VirtualFile -> J.Position -> Maybe CodePointPosition
 positionToCodePointPosition vFile (J.Position l c) = do
+  -- See Note [Converting between code points and code units]
   let text = _file_text vFile
   lineRope <- extractLine text $ fromIntegral l
   kLine <- case compare c (fromIntegral $ Rope.utf16Length lineRope) of