fix: the [issue](haskell#3847)

BurningLutz · Oct 26, 2023 · 5415382 · 5415382
1 parent c0f7d4c
commit 5415382
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/hls-plugin-api/src/Ide/PluginUtils.hs b/hls-plugin-api/src/Ide/PluginUtils.hs
@@ -236,7 +236,13 @@ usePropertyLsp kn pId p = do
 extractTextInRange :: Range -> T.Text -> T.Text
 extractTextInRange (Range (Position sl sc) (Position el ec)) s = newS
   where
-    focusLines = take (fromIntegral $ el - sl + 1) $ drop (fromIntegral sl) $ T.lines s
+    -- NOTE: Always append an empty line to the end to ensure there are
+    -- sufficient lines to take from.
+    focusLines =
+      T.lines s
+        & (++ [""])
+        & drop (fromIntegral sl)
+        & take (fromIntegral $ el - sl + 1)
     -- NOTE: We have to trim the last line first to handle the single-line case
     newS =
       focusLines