@@ -215,8 +215,9 @@ setupEnv tmsIn = do
215215 foldl'
216216 (\fc (im, ifr) -> GHC.extendInstalledModuleEnv fc im ifr) prevFinderCache
217217 $ zip ims ifrs
218− newFinderCacheVar <- liftIO $ newIORef $! newFinderCache
219− modifySession $ \s -> s { hsc_FC = newFinderCacheVar }
218+ liftIO $ writeIORef (hsc_FC session) newFinderCache
219+ -- newFinderCacheVar <- liftIO $ newIORef $! newFinderCache
220+ -- modifySession $ \s -> s { hsc_FC = prevFinderCache }
220221
221222 -- load dependent modules, which must be in topological order.
222223 mapM_ loadModuleHome tms