fix: use correct range for autocompletion

compiler/main/Run/LanguageServer.hs

@@ -106,7 +106,7 @@ handlers state autocompletionState = mconcat
         let fileContent = T.unpack . virtualFileText <$> file
         case fileContent of
           Just content -> do
-            let foundLine = take (col + 1) $ lines content !! line
+            let foundLine = take col $ lines content !! line
 
             suggestions <- getAutocompletionSuggestions autocompletionState (Loc 0 (line + 1) (col + 1)) (uriToPath uri) content
             -- https://github.com/haskell/lsp/blob/76b86d54040cfa6c8306433a29404fa6402a5f69/lsp-types/src/Language/LSP/Types/Completion.hs
@@ -1178,7 +1178,7 @@ completionSuggestionsTask :: Loc -> FilePath -> String -> Rock.Task Query.Query
 completionSuggestionsTask loc@(Loc _ line col) modulePath moduleContent = do
   (typedAst, env)  <- Rock.fetch $ Query.SolvedASTWithEnv modulePath
 
-  let foundLine = take col $ lines moduleContent !! (line - 1)
+  let foundLine = take (col - 1) $ lines moduleContent !! (line - 1)
   let autocompletionKind = computeAutocompletionKind (reverse foundLine)
 
   let topLevelExp = findTopLevelExp loc (Slv.aexps typedAst)

madlib.cabal

@@ -5,7 +5,7 @@ cabal-version: 2.0
 -- see: https://github.com/sol/hpack
 
 name:           madlib
-version:        0.24.0
+version:        0.24.1
 description:    Please see the README on GitHub at <https://github.com/madlib-lang/madlib#readme>
 homepage:       https://github.com/madlib-lang/madlib#readme
 bug-reports:    https://github.com/madlib-lang/madlib/issues

package.yaml

@@ -1,5 +1,5 @@
 name:                madlib
-version:             0.24.0
+version:             0.24.1
 github:              "madlib-lang/madlib"
 license:             BSD3
 author:              "Arnaud Boeglin, Brekk Bockrath"

pkg/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@madlib-lang/madlib",
-  "version": "0.24.0",
+  "version": "0.24.1",
   "main": "./src/run.js",
   "bin": {
     "madlib": "src/run.js"