X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fghci%2FLinker.lhs;h=8ff654e2a5307d901b0343b1981bf76334d473e8;hp=e105bb26f2de87b9a36ff5d3c7167c0bad06a324;hb=f3109bb191b65c9c34bfaeb9d4b4e750f5b65ace;hpb=fbb68f1d6abfa3391e2cd0ea8f3c1a62ef911634

diff --git a/compiler/ghci/Linker.lhs b/compiler/ghci/Linker.lhs
index e105bb2..8ff654e 100644
--- a/compiler/ghci/Linker.lhs
+++ b/compiler/ghci/Linker.lhs
@@ -730,7 +730,7 @@ linkSomeBCOs toplevs_only ie ce_in de_in ul_bcos
         let de_additions = [(address, name) | (address, name) <- zip addresses names
                                             , not(address `elemAddressEnv` de_in) 
                            ]
-            de_out = extendAddressEnvList' de_in de_additions
+            de_out = extendAddressEnvList de_in de_additions
         return ( ce_out, de_out, hvals)
     where 
           goForRefs = getRefs []