diff options
Diffstat (limited to 'testsuite/tests/rts/linker/LinkerUnload.hs')
-rw-r--r-- | testsuite/tests/rts/linker/LinkerUnload.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/testsuite/tests/rts/linker/LinkerUnload.hs b/testsuite/tests/rts/linker/LinkerUnload.hs index 6529dd654d..ae4bd7562a 100644 --- a/testsuite/tests/rts/linker/LinkerUnload.hs +++ b/testsuite/tests/rts/linker/LinkerUnload.hs @@ -5,6 +5,7 @@ import GHC.Unit.State import GHC.Driver.Env import GHC.Driver.Session import GHC.Driver.Backend +import GHC.Runtime.Interpreter import qualified GHC.Linker.Loader as Loader import System.Environment import GHC.Utils.Monad ( MonadIO(..) ) @@ -20,4 +21,4 @@ loadPackages = do , ghcLink = LinkInMemory } setSessionDynFlags dflags' hsc_env <- getSession - liftIO $ Loader.loadPackages hsc_env (preloadUnits (hsc_units hsc_env)) + liftIO $ Loader.loadPackages (hscInterp hsc_env) hsc_env (preloadUnits (hsc_units hsc_env)) |