Inline variable refactor doesn't work for let bindings inside do block

Your environment

Which OS do you use? MacOS

Which version of GHC do you use and how did you install it? Tested with GHC 9.4.8 installed with ghcup.

How is your project built (alternative: link to the project)? Cabal (exe + lib + tests). Link: https://github.com/BogdanYarotsky/async-http-client/blob/main/app/Main.hs

Which LSP client (editor/plugin) do you use? VS Code + Haskell extension

Which version of HLS do you use and how did you install it? 2.9.0.1 installed from ghcup.

Have you configured HLS in any way (especially: a hie.yaml file)? No

Steps to reproduce

1) Enter the following code

data Uri = Uri
  { host :: String,
    path :: String
  }

simpleHttpGet :: Uri -> IO String
simpleHttpGet uri' = 
  return "doesn't matter"

main :: IO ()
main = do
  let path' = "/"
  response <- simpleHttpGet (Uri "example.com" path')
  putStrLn response

2) Try to inline the let binding inside a do block using a code action.

Expected behavior

In the example path’ should be replaced with “/“ in the place of invocation (Uri constructor) like this:

 main = do
  response <- simpleHttpGet (Uri "example.com" "/")
  putStrLn response

Actual behavior

2 cryptic error messages from HLS and no changes to the code: 1) retrie: Internal Error: Retrie - inline produced no changes 2) Error condition, please check your setup and/or the issue tracker: retrie: Internal Error: Retrie - inline produced no changes

Please check the video below:

https://github.com/user-attachments/assets/60cf71b5-9814-42df-824f-48579ddf51c9

May be related to issue #4374

haskell / haskell-language-server