X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FGHC.hs;h=3b1d91746b964be95fb332df5622f8d60d0ec47a;hp=4f181b2b9377314dde7f91294ec4dce45abaca11;hb=4a8ca58413c836cc24f88c1b4753893598e9ff9c;hpb=8c440cff43c20c3b79cd80e7f65fadd95328ff43

diff --git a/compiler/main/GHC.hs b/compiler/main/GHC.hs
index 4f181b2..3b1d917 100644
--- a/compiler/main/GHC.hs
+++ b/compiler/main/GHC.hs
@@ -2326,7 +2326,7 @@ extendEnvironment hsc_env apStack idsOffsets = do
        new_type_env = extendTypeEnvWithIds filtered_type_env (typed_ids)
        new_ic = ictxt { ic_rn_local_env = new_rn_env, 
 		        ic_type_env     = new_type_env }
-   Linker.extendLinkEnv (zip names hValues) -- ToDo: we must remember to restore the old env after we finish a breakpoint
+   Linker.extendLinkEnv (zip names hValues)
    return (hsc_env{hsc_IC = new_ic}, names)
   where
    globaliseAndTidy :: Id -> Id