diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2019-05-18 17:43:43 +0100 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2019-05-18 17:43:53 +0100 |
| commit | 37fefb5e7a05c69d4c0b42d24f68d919d9143186 (patch) | |
| tree | a2997e109d31f4c7f0294bb785335c1d9165bd51 /compiler/ghci/Linker.hs | |
| parent | 9b4364860d7c9beaec156bc66b01c3e0e75db8b9 (diff) | |
| download | haskell-wip/16672.tar.gz | |
WIP: #16672wip/16672
Diffstat (limited to 'compiler/ghci/Linker.hs')
| -rw-r--r-- | compiler/ghci/Linker.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/ghci/Linker.hs b/compiler/ghci/Linker.hs index b3135e1d2b..ace2c702b2 100644 --- a/compiler/ghci/Linker.hs +++ b/compiler/ghci/Linker.hs @@ -115,7 +115,7 @@ readPLS dl = modifyMbPLS_ :: DynLinker -> (Maybe PersistentLinkerState -> IO (Maybe PersistentLinkerState)) -> IO () -modifyMbPLS_ dl f = modifyMVar_ (dl_mpls dl) f +modifyMbPLS_ dl f = modifyMVar_ (dl_mpls dl) f emptyPLS :: DynFlags -> PersistentLinkerState emptyPLS _ = PersistentLinkerState { @@ -350,7 +350,7 @@ linkCmdLineLibs' hsc_env pls = in nub $ map normalise paths let lib_paths = nub $ lib_paths_base ++ gcc_paths all_paths_env <- addEnvPaths "LD_LIBRARY_PATH" all_paths - traceM "all_paths" (ppr all_paths_env) + pprTraceM "all_paths" (ppr all_paths_env) pathCache <- mapM (addLibrarySearchPath hsc_env) all_paths_env pls1 <- foldM (preloadLib hsc_env lib_paths framework_paths) pls |