File tree Expand file tree Collapse file tree 1 file changed +0
-5
lines changed
ghcide/src/Development/IDE/Core Expand file tree Collapse file tree 1 file changed +0
-5
lines changed Original file line number Diff line number Diff line change @@ -247,16 +247,11 @@ typecheckParentsAction recorder nfp = do
247
247
-- independently tracks which files are modified.
248
248
setSomethingModified :: VFSModified -> IdeState -> [Key ] -> String -> IO ()
249
249
setSomethingModified vfs state keys reason = do
250
- L. logDebug (Shake. ideLogger state) " begin setSomethingModified"
251
250
-- Update database to remove any files that might have been renamed/deleted
252
251
atomically $ do
253
- unsafeIOToSTM $ L. logDebug (Shake. ideLogger state) " begin writing indexQueue"
254
252
writeTQueue (indexQueue $ hiedbWriter $ shakeExtras state) (\ withHieDb -> withHieDb deleteMissingRealFiles)
255
- unsafeIOToSTM $ L. logDebug (Shake. ideLogger state) " begin writing dirtyKeys"
256
253
modifyTVar' (dirtyKeys $ shakeExtras state) $ \ x ->
257
254
foldl' (flip insertKeySet) x keys
258
-
259
- L. logDebug (Shake. ideLogger state) " setSomethingModified before restartShakeSession"
260
255
void $ restartShakeSession (shakeExtras state) vfs reason []
261
256
262
257
registerFileWatches :: [String ] -> LSP. LspT Config IO Bool
You can’t perform that action at this time.
0 commit comments