@@ -49,7 +49,7 @@ import Development.IDE.Types.Diagnostics
4949import Development.IDE.Types.Location
5050import Development.IDE.Types.Logger
5151import Development.IDE.Types.Options
52- import Development.Shake (Action , action )
52+ import Development.Shake (Action )
5353import DynFlags (gopt_set , gopt_unset ,
5454 updOptLevel )
5555import DynFlags (PackageFlag (.. ), PackageArg (.. ))
@@ -195,7 +195,7 @@ main = do
195195 , optInterfaceLoadingDiagnostics = argsTesting
196196 }
197197 debouncer <- newAsyncDebouncer
198- initialise caps (mainRule >> pluginRules plugins >> action kick )
198+ initialise caps (mainRule >> pluginRules plugins)
199199 getLspId event hlsLogger debouncer options vfs
200200 else do
201201 -- GHC produces messages with UTF8 in them, so make sure the terminal doesn't error
@@ -241,11 +241,13 @@ expandFiles = concatMapM $ \x -> do
241241 fail $ " Couldn't find any .hs/.lhs files inside directory: " ++ x
242242 return files
243243
244-
244+ -- Running this every hover is too expensive, 0.2s on GHC for example
245+ {-
245246kick :: Action ()
246247kick = do
247248 files <- getFilesOfInterest
248249 void $ uses TypeCheck $ HashSet.toList files
250+ -}
249251
250252-- | Print an LSP event.
251253showEvent :: Lock -> FromServerMessage -> IO ()
0 commit comments