@@ -25,6 +25,7 @@ import Development.IDE.Types.Logger
2525import qualified Data.Text as T
2626import qualified Data.Text.IO as T
2727import Language.Haskell.LSP.Messages
28+import Linker
2829import Development.IDE.LSP.LanguageServer
2930import System.Directory.Extra as IO
3031import System.Environment
@@ -125,6 +126,9 @@ showEvent lock (EventFileDiagnostics (toNormalizedFilePath -> file) diags) =
125126showEvent lock e = withLock lock $ print e
126127
127128newSession' :: Cradle -> IO HscEnv
128−newSession' cradle = getLibdir >>= \libdir -> runGhc (Just libdir) $ do
129− initializeFlagsWithCradle "" cradle
130− getSession
129+newSession' cradle = getLibdir >>= \libdir -> do
130+ env <- runGhc (Just libdir) $ do
131+ initializeFlagsWithCradle "" cradle
132+ getSession
133+ initDynLinker env
134+ pure env