@@ -25,6 +25,7 @@ import Development.IDE.Types.Logger
25import qualified Data.Text as T
25import qualified Data.Text as T
26import qualified Data.Text.IO as T
26import qualified Data.Text.IO as T
27import Language.Haskell.LSP.Messages
27import Language.Haskell.LSP.Messages
28import Development.IDE.LSP.LanguageServer
29import Development.IDE.LSP.LanguageServer
29import System.Directory.Extra as IO
30import System.Directory.Extra as IO
30import System.Environment
31import System.Environment
@@ -125,6 +126,9 @@ showEvent lock (EventFileDiagnostics (toNormalizedFilePath -> file) diags) =
125showEvent lock e = withLock lock $ print e
126showEvent lock e = withLock lock $ print e
127newSession' :: Cradle -> IO HscEnv
128newSession' :: Cradle -> IO HscEnv
128−newSession' cradle = getLibdir >>= \libdir -> runGhc (Just libdir) $ do
129+newSession' cradle = getLibdir >>= \libdir -> do
130+ env <- runGhc (Just libdir) $ do
129− initializeFlagsWithCradle "" cradle
131+ initializeFlagsWithCradle "" cradle
130− getSession
132+ getSession