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

diff --git a/compiler/main/GHC.hs b/compiler/main/GHC.hs
index f35c7fd..3b1d917 100644
--- a/compiler/main/GHC.hs
+++ b/compiler/main/GHC.hs
@@ -164,6 +164,14 @@ module GHC (
 
 	-- ** Source locations
 	SrcLoc, pprDefnLoc,
+        mkSrcLoc, isGoodSrcLoc,
+	srcLocFile, srcLocLine, srcLocCol,
+        SrcSpan,
+        mkSrcSpan, srcLocSpan,
+        srcSpanStart, srcSpanEnd,
+	srcSpanFile, 
+        srcSpanStartLine, srcSpanEndLine, 
+        srcSpanStartCol, srcSpanEndCol,
 
 	-- * Exceptions
 	GhcException(..), showGhcException,
@@ -2318,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