diff --git a/ghcide/src/Development/IDE/Core/Service.hs b/ghcide/src/Development/IDE/Core/Service.hs index a98f80bfb4..e5eae280e2 100644 --- a/ghcide/src/Development/IDE/Core/Service.hs +++ b/ghcide/src/Development/IDE/Core/Service.hs @@ -80,4 +80,4 @@ shutdown = shakeShut -- e.g., the ofInterestRule. runAction :: String -> IdeState -> Action a -> IO a runAction herald ide act = - join $ shakeEnqueue (shakeExtras ide) (mkDelayedAction herald Logger.Info act) + join $ shakeEnqueue (shakeExtras ide) (mkDelayedAction herald Logger.Debug act) diff --git a/ghcide/test/exe/Main.hs b/ghcide/test/exe/Main.hs index 1189fc1354..afc57c4bf7 100644 --- a/ghcide/test/exe/Main.hs +++ b/ghcide/test/exe/Main.hs @@ -5492,7 +5492,8 @@ simpleSubDirectoryTest = expectNoMoreDiagnostics 0.5 simpleMultiTest :: TestTree -simpleMultiTest = testCase "simple-multi-test" $ withLongTimeout $ runWithExtraFiles "multi" $ \dir -> do +simpleMultiTest = knownBrokenForGhcVersions [GHC92] "#2693" $ + testCase "simple-multi-test" $ withLongTimeout $ runWithExtraFiles "multi" $ \dir -> do let aPath = dir "a/A.hs" bPath = dir "b/B.hs" adoc <- openDoc aPath "haskell"