@@ -8,47 +8,46 @@ module Development.IDE.Plugin.Completions
8
8
, ghcideCompletionsPluginPriority
9
9
) where
10
10
11
- import Control.Concurrent.Async (concurrently )
12
- import Control.Concurrent.STM.Stats (readTVarIO )
11
+ import Control.Concurrent.Async (concurrently )
12
+ import Control.Concurrent.STM.Stats (readTVarIO )
13
13
import Control.Monad.Extra
14
14
import Control.Monad.IO.Class
15
15
import Control.Monad.Trans.Maybe
16
16
import Data.Aeson
17
- import qualified Data.HashMap.Strict as Map
18
- import qualified Data.HashSet as Set
19
- import Data.List (find )
17
+ import qualified Data.HashMap.Strict as Map
18
+ import qualified Data.HashSet as Set
19
+ import Data.List (find )
20
20
import Data.Maybe
21
- import qualified Data.Text as T
21
+ import qualified Data.Text as T
22
22
import Development.IDE.Core.PositionMapping
23
23
import Development.IDE.Core.RuleTypes
24
- import Development.IDE.Core.Service hiding (Log ,
25
- LogShake )
26
- import Development.IDE.Core.Shake hiding (Log )
27
- import qualified Development.IDE.Core.Shake as Shake
24
+ import Development.IDE.Core.Service hiding (Log , LogShake )
25
+ import Development.IDE.Core.Shake hiding (Log )
26
+ import qualified Development.IDE.Core.Shake as Shake
28
27
import Development.IDE.GHC.Compat
29
- import Development.IDE.GHC.Error (rangeToSrcSpan )
30
- import Development.IDE.GHC.Util (printOutputable )
28
+ import Development.IDE.GHC.Error (rangeToSrcSpan )
29
+ import Development.IDE.GHC.Util (printOutputable )
31
30
import Development.IDE.Graph
32
31
import Development.IDE.Plugin.Completions.Logic
33
32
import Development.IDE.Plugin.Completions.Types
34
33
import Development.IDE.Types.Exports
35
- import Development.IDE.Types.HscEnvEq (HscEnvEq (envPackageExports ),
36
- hscEnv )
37
- import qualified Development.IDE.Types.KnownTargets as KT
34
+ import Development.IDE.Types.HscEnvEq (HscEnvEq (envPackageExports ),
35
+ hscEnv )
36
+ import qualified Development.IDE.Types.KnownTargets as KT
38
37
import Development.IDE.Types.Location
39
- import Development.IDE.Types.Logger (Pretty (pretty ),
40
- Recorder ,
41
- WithPriority ,
42
- cmapWithPrio )
43
- import GHC.Exts (fromList , toList )
44
- import Ide.Plugin.Config (Config )
38
+ import Development.IDE.Types.Logger (Pretty (pretty ),
39
+ Recorder ,
40
+ WithPriority ,
41
+ cmapWithPrio )
42
+ import GHC.Exts (fromList , toList )
43
+ import Ide.Plugin.Config (Config )
45
44
import Ide.Types
46
- import qualified Language.LSP.Server as LSP
47
- import qualified Language.LSP.VFS as VFS
45
+ import qualified Language.LSP.Server as LSP
46
+ import qualified Language.LSP.VFS as VFS
48
47
import Numeric.Natural
49
- import Text.Fuzzy.Parallel (Scored (.. ))
48
+ import Text.Fuzzy.Parallel (Scored (.. ))
50
49
51
- import qualified GHC.LanguageExtensions as LangExt
50
+ import qualified GHC.LanguageExtensions as LangExt
52
51
import Language.LSP.Types
53
52
54
53
data Log = LogShake Shake. Log deriving Show
@@ -167,8 +166,8 @@ getCompletionsLSP ide plId
167
166
let clientCaps = clientCapabilities $ shakeExtras ide
168
167
plugins = idePlugins $ shakeExtras ide
169
168
config <- getCompletionsConfig plId
170
-
171
- allCompletions <- liftIO $ getCompletions plId ideOpts cci' parsedMod astres bindMap pfix' clientCaps config moduleExports
169
+
170
+ allCompletions <- liftIO $ getCompletions plugins ideOpts cci' parsedMod astres bindMap pfix' clientCaps config moduleExports
172
171
pure $ InL (List $ orderedCompletions allCompletions)
173
172
_ -> return (InL $ List [] )
174
173
_ -> return (InL $ List [] )
0 commit comments