summaryrefslogtreecommitdiff
path: root/testsuite/tests/rts/LinkerUnload.hs
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/tests/rts/LinkerUnload.hs')
-rw-r--r--testsuite/tests/rts/LinkerUnload.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/testsuite/tests/rts/LinkerUnload.hs b/testsuite/tests/rts/LinkerUnload.hs
index 7e9d1dd38a..9d6b243256 100644
--- a/testsuite/tests/rts/LinkerUnload.hs
+++ b/testsuite/tests/rts/LinkerUnload.hs
@@ -16,5 +16,5 @@ loadPackages = do
let dflags' = dflags { hscTarget = HscNothing
, ghcLink = LinkInMemory }
pkgs <- setSessionDynFlags dflags'
- dflags <- getSessionDynFlags
- liftIO $ Linker.linkPackages dflags pkgs
+ hsc_env <- getSession
+ liftIO $ Linker.linkPackages hsc_env pkgs