Skip to content

Commit ac76ca9

Browse files
committed
perform unsafe
1 parent 6f6f75b commit ac76ca9

File tree

2 files changed

+3
-2
lines changed

2 files changed

+3
-2
lines changed

ghcide/src/Development/IDE/Core/OfInterest.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -127,7 +127,7 @@ deleteFileOfInterest state f = do
127127
scheduleGarbageCollection :: IdeState -> IO ()
128128
scheduleGarbageCollection state = do
129129
GarbageCollectVar var <- getIdeGlobalState state
130-
writeVar var True
130+
writeVar var False
131131

132132
-- | Typecheck all the files of interest.
133133
-- Could be improved

ghcide/src/Development/IDE/LSP/LanguageServer.hs

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -43,6 +43,7 @@ import Development.IDE.Core.WorkerThread (withWorkerQueue)
4343
import qualified Development.IDE.Session as Session
4444
import Development.IDE.Types.Shake (WithHieDb,
4545
WithHieDbShield (..))
46+
import GHC.IO (unsafeInterleaveIO)
4647
import Ide.Logger
4748
import Language.LSP.Server (LanguageContextEnv,
4849
LspServerLog,
@@ -249,7 +250,7 @@ handleInit recorder defaultRoot getHieDbLoc getIdeState lifetime exitClientMsg c
249250
ReactorRequest _id act k -> void $ async $ checkCancelled _id act k
250251
logWith recorder Info LogReactorThreadStopped
251252

252-
(WithHieDbShield withHieDb, threadQueue) <- takeMVar dbMVar
253+
(WithHieDbShield withHieDb, threadQueue) <- unsafeInterleaveIO $ takeMVar dbMVar
253254
ide <- getIdeState env root withHieDb threadQueue
254255
registerIdeConfiguration (shakeExtras ide) initConfig
255256
pure $ Right (env,ide)

0 commit comments

Comments
 (0)