Skip to content

Commit 364960a

Browse files
authored
Register IDE configuration when called via the command line (#1495)
1 parent d519c3c commit 364960a

File tree

1 file changed

+3
-0
lines changed

1 file changed

+3
-0
lines changed

ghcide/src/Development/IDE/Main.hs

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -26,6 +26,7 @@ import Development.IDE.Core.Service (initialise, runAction)
2626
import Development.IDE.Core.Shake (IdeState (shakeExtras),
2727
ShakeExtras (state), uses)
2828
import Development.IDE.Core.Tracing (measureMemory)
29+
import Development.IDE.Core.IdeConfiguration (registerIdeConfiguration, IdeConfiguration(..))
2930
import Development.IDE.LSP.LanguageServer (runLanguageServer)
3031
import Development.IDE.Plugin (Plugin (pluginHandlers, pluginRules))
3132
import Development.IDE.Plugin.HLS (asGhcIdePlugin)
@@ -61,6 +62,7 @@ import System.IO (hPutStrLn, hSetEncoding,
6162
stderr, stdout, utf8)
6263
import System.Time.Extra (offsetTime, showDuration)
6364
import Text.Printf (printf)
65+
import Data.Hashable (hashed)
6466

6567
data Arguments = Arguments
6668
{ argsOTMemoryProfiling :: Bool
@@ -170,6 +172,7 @@ defaultMain Arguments{..} = do
170172
, optCheckProject = pure False
171173
}
172174
ide <- initialise argsDefaultHlsConfig rules Nothing argsLogger debouncer options vfs hiedb hieChan
175+
registerIdeConfiguration (shakeExtras ide) $ IdeConfiguration mempty (hashed Nothing)
173176

174177
putStrLn "\nStep 4/4: Type checking the files"
175178
setFilesOfInterest ide $ HashMap.fromList $ map ((,OnDisk) . toNormalizedFilePath') files

0 commit comments

Comments
 (0)