File tree Expand file tree Collapse file tree 2 files changed +3
-2
lines changed
ghcide/src/Development/IDE Expand file tree Collapse file tree 2 files changed +3
-2
lines changed Original file line number Diff line number Diff line change @@ -127,7 +127,7 @@ deleteFileOfInterest state f = do
127
127
scheduleGarbageCollection :: IdeState -> IO ()
128
128
scheduleGarbageCollection state = do
129
129
GarbageCollectVar var <- getIdeGlobalState state
130
- writeVar var True
130
+ writeVar var False
131
131
132
132
-- | Typecheck all the files of interest.
133
133
-- Could be improved
Original file line number Diff line number Diff line change @@ -43,6 +43,7 @@ import Development.IDE.Core.WorkerThread (withWorkerQueue)
43
43
import qualified Development.IDE.Session as Session
44
44
import Development.IDE.Types.Shake (WithHieDb ,
45
45
WithHieDbShield (.. ))
46
+ import GHC.IO (unsafeInterleaveIO )
46
47
import Ide.Logger
47
48
import Language.LSP.Server (LanguageContextEnv ,
48
49
LspServerLog ,
@@ -249,7 +250,7 @@ handleInit recorder defaultRoot getHieDbLoc getIdeState lifetime exitClientMsg c
249
250
ReactorRequest _id act k -> void $ async $ checkCancelled _id act k
250
251
logWith recorder Info LogReactorThreadStopped
251
252
252
- (WithHieDbShield withHieDb, threadQueue) <- takeMVar dbMVar
253
+ (WithHieDbShield withHieDb, threadQueue) <- unsafeInterleaveIO $ takeMVar dbMVar
253
254
ide <- getIdeState env root withHieDb threadQueue
254
255
registerIdeConfiguration (shakeExtras ide) initConfig
255
256
pure $ Right (env,ide)
You can’t perform that action at this time.
0 commit comments