Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/0033d5a4aa015544a3ecbf9bae2e7b94f0c9d48d >--------------------------------------------------------------- commit 0033d5a4aa015544a3ecbf9bae2e7b94f0c9d48d Author: Simon Peyton Jones <[email protected]> Date: Wed Jun 22 17:38:06 2011 +0100 Add a couple of traces >--------------------------------------------------------------- compiler/typecheck/TcTyClsDecls.lhs | 3 +++ 1 files changed, 3 insertions(+), 0 deletions(-) diff --git a/compiler/typecheck/TcTyClsDecls.lhs b/compiler/typecheck/TcTyClsDecls.lhs index ca4f2c5..031ffdf 100644 --- a/compiler/typecheck/TcTyClsDecls.lhs +++ b/compiler/typecheck/TcTyClsDecls.lhs @@ -91,6 +91,8 @@ tcTyAndClassDecls boot_details decls_s ; let rec_flags = calcRecFlags boot_details rec_tyclss ; concatMapM (tcTyClDecl rec_flags) kc_decls } + ; traceTc "tcTyAndCl3" (ppr tyclss) + ; tcExtendGlobalEnv tyclss $ do { -- Perform the validity check -- We can do this now because we are done with the recursive knot @@ -422,6 +424,7 @@ tcTyClDecl :: (Name -> RecFlag) -> LTyClDecl Name -> TcM [TyThing] tcTyClDecl calc_isrec (L loc decl) = setSrcSpan loc $ tcAddDeclCtxt decl $ + traceTc "tcTyAndCl-x" (ppr decl) >> tcTyClDecl1 NoParentTyCon calc_isrec decl -- "type family" declarations _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
