module Unison.Codebase.Editor.HandleInput.LSPDebug (debugLspNameCompletion) where

import Unison.Cli.Monad (Cli)
import Unison.Cli.Monad qualified as Cli
import Unison.Cli.NamesUtils qualified as Cli
import Unison.Codebase.Editor.Output (Output (DisplayDebugLSPNameCompletions))
import Unison.LSP.Completion qualified as Completion
import Unison.Prelude

debugLspNameCompletion :: Text -> Cli ()
debugLspNameCompletion :: Text -> Cli ()
debugLspNameCompletion Text
prefix = do
  names <- Cli Names
Cli.currentNames
  let ct = Names -> CompletionTree
Completion.namesToCompletionTree Names
names
  let (_, matches) = Completion.completionsForQuery ct prefix
  Cli.respond $ DisplayDebugLSPNameCompletions matches