surface the problem

Author: soulomoon

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

@@ -49,6 +49,7 @@ import           Development.IDE.Import.DependencyInformation
 import           Development.IDE.Types.Diagnostics
 import           Development.IDE.Types.Location
 import           Development.IDE.Types.Options
+import           GHC.Conc.Sync                                (unsafeIOToSTM)
 import           HieDb.Create                                 (deleteMissingRealFiles)
 import           Ide.Logger                                   (Pretty (pretty),
                                                                Priority (Info),
@@ -246,11 +247,16 @@ typecheckParentsAction recorder nfp = do
 --   independently tracks which files are modified.
 setSomethingModified :: VFSModified -> IdeState -> [Key] -> String -> IO ()
 setSomethingModified vfs state keys reason = do
+    L.logDebug (Shake.ideLogger state) "begin restartShakeSession"
     -- Update database to remove any files that might have been renamed/deleted
     atomically $ do
+        unsafeIOToSTM $ L.logDebug (Shake.ideLogger state) "begin writing indexQueue"
         writeTQueue (indexQueue $ hiedbWriter $ shakeExtras state) (\withHieDb -> withHieDb deleteMissingRealFiles)
+        unsafeIOToSTM $ L.logDebug (Shake.ideLogger state) "begin writing dirtyKeys"
         modifyTVar' (dirtyKeys $ shakeExtras state) $ \x ->
             foldl' (flip insertKeySet) x keys
+
+    L.logDebug (Shake.ideLogger state) "setSomethingModified before restartShakeSession"
     void $ restartShakeSession (shakeExtras state) vfs reason []
 
 registerFileWatches :: [String] -> LSP.LspT Config IO Bool

plugins/hls-refactor-plugin/test/Main.hs

@@ -71,9 +71,9 @@ tests :: TestTree
 tests =
   testGroup "refactor"
   [ initializeTests
-  , codeActionTests
-  , codeActionHelperFunctionTests
-  , completionTests
+--   , codeActionTests
+--   , codeActionHelperFunctionTests
+--   , completionTests
   ]
 
 initializeTests :: TestTree
@@ -99,7 +99,9 @@ initializeTests = withResource acquire release tests
           mapM_ (\e -> any (\o -> T.isSuffixOf e o) commands @? show (expected, show commands)) expected
 
     acquire :: IO (TResponseMessage Method_Initialize)
-    acquire = run initializeResponse
+    acquire = do
+        -- liftIO $ sleep 0.01
+        run initializeResponse
 
     release :: TResponseMessage Method_Initialize -> IO ()
     release = mempty