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
247247-- independently tracks which files are modified.
248248setSomethingModified :: VFSModified -> IdeState -> [Key ] -> String -> IO ()
249249setSomethingModified vfs state keys reason = do
250- L. logDebug (Shake. ideLogger state) " begin setSomethingModified"
251250 -- Update database to remove any files that might have been renamed/deleted
252251 atomically $ do
253- unsafeIOToSTM $ L. logDebug (Shake. ideLogger state) " begin writing indexQueue"
254252 writeTQueue (indexQueue $ hiedbWriter $ shakeExtras state) (\ withHieDb -> withHieDb deleteMissingRealFiles)
255- unsafeIOToSTM $ L. logDebug (Shake. ideLogger state) " begin writing dirtyKeys"
256253 modifyTVar' (dirtyKeys $ shakeExtras state) $ \ x ->
257254 foldl' (flip insertKeySet) x keys
258-
259- L. logDebug (Shake. ideLogger state) " setSomethingModified before restartShakeSession"
260255 void $ restartShakeSession (shakeExtras state) vfs reason []
261256
262257registerFileWatches :: [String ] -> LSP. LspT Config IO Bool
You can’t perform that action at this time.
0 commit comments