@@ -26,6 +26,7 @@ import Development.IDE.Core.Service (initialise, runAction)
26
26
import Development.IDE.Core.Shake (IdeState (shakeExtras ),
27
27
ShakeExtras (state ), uses )
28
28
import Development.IDE.Core.Tracing (measureMemory )
29
+ import Development.IDE.Core.IdeConfiguration (registerIdeConfiguration , IdeConfiguration (.. ))
29
30
import Development.IDE.LSP.LanguageServer (runLanguageServer )
30
31
import Development.IDE.Plugin (Plugin (pluginHandlers , pluginRules ))
31
32
import Development.IDE.Plugin.HLS (asGhcIdePlugin )
@@ -61,6 +62,7 @@ import System.IO (hPutStrLn, hSetEncoding,
61
62
stderr , stdout , utf8 )
62
63
import System.Time.Extra (offsetTime , showDuration )
63
64
import Text.Printf (printf )
65
+ import Data.Hashable (hashed )
64
66
65
67
data Arguments = Arguments
66
68
{ argsOTMemoryProfiling :: Bool
@@ -170,6 +172,7 @@ defaultMain Arguments{..} = do
170
172
, optCheckProject = pure False
171
173
}
172
174
ide <- initialise argsDefaultHlsConfig rules Nothing argsLogger debouncer options vfs hiedb hieChan
175
+ registerIdeConfiguration (shakeExtras ide) $ IdeConfiguration mempty (hashed Nothing )
173
176
174
177
putStrLn " \n Step 4/4: Type checking the files"
175
178
setFilesOfInterest ide $ HashMap. fromList $ map ((,OnDisk ) . toNormalizedFilePath') files
0 commit comments