diff --git a/ghcide/src/Development/IDE/LSP/LanguageServer.hs b/ghcide/src/Development/IDE/LSP/LanguageServer.hs index 53a2aee1e0..06afd28245 100644 --- a/ghcide/src/Development/IDE/LSP/LanguageServer.hs +++ b/ghcide/src/Development/IDE/LSP/LanguageServer.hs @@ -188,7 +188,7 @@ exitHandler :: IO () -> LSP.Handlers (ServerM c) exitHandler exit = LSP.notificationHandler SExit $ const $ do (_, ide) <- ask -- flush out the Shake session to record a Shake profile if applicable - liftIO $ restartShakeSession (shakeExtras ide) [] + liftIO $ shakeShut ide liftIO exit modifyOptions :: LSP.Options -> LSP.Options