[project @ 2003-03-27 08:18:21 by simonpj]

[ghc-hetmet.git] / ghc / compiler / typecheck / TcRnDriver.lhs

diff --git a/ghc/compiler/typecheck/TcRnDriver.lhs b/ghc/compiler/typecheck/TcRnDriver.lhs
index 6e65eec..5bb8c6c 100644 (file)
--- a/ghc/compiler/typecheck/TcRnDriver.lhs
+++ b/ghc/compiler/typecheck/TcRnDriver.lhs
@@ -679,7 +679,7 @@ tc_rn_src_decls ds
        -- Glue them on the front of the remaining decls and loop
        (tc_envs, src_dus2) <- tc_rn_src_decls (spliced_decls ++ rest_ds) ;
 
-       return (tcg_envs, src_dus1 `plusDU` usesOnly splice_fvs `plusDU` src_dus2)
+       return (tc_envs, src_dus1 `plusDU` usesOnly splice_fvs `plusDU` src_dus2)
     }
 #endif /* GHCI */
     }}}
@@ -707,16 +707,13 @@ monad; it augments it and returns the new TcGblEnv.
 tcRnGroup :: HsGroup RdrName -> TcM ((TcGblEnv, TcLclEnv), DefUses)
        -- Returns the variables free in the decls, for unused-binding reporting
 tcRnGroup decls
- = do {        showLIE (text "LIE at start of tcRnGroup" <+> ppr decls) ;
-
-               -- Rename the declarations
+ = do {                -- Rename the declarations
        (tcg_env, rn_decls, src_dus) <- rnTopSrcDecls decls ;
        setGblEnv tcg_env $ do {
 
                -- Typecheck the declarations
        tc_envs <- tcTopSrcDecls rn_decls ;
 
-       showLIE (text "LIE at end of tcRnGroup" <+> ppr decls) ;
        return (tc_envs, src_dus)
   }}