Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/d9d35d8c5a74636b41eb0591b8abedb24080d8e3 >--------------------------------------------------------------- commit d9d35d8c5a74636b41eb0591b8abedb24080d8e3 Author: Simon Peyton Jones <[email protected]> Date: Thu Apr 26 13:47:20 2012 +0100 Remove spurious debug print >--------------------------------------------------------------- compiler/deSugar/DsMeta.hs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/deSugar/DsMeta.hs b/compiler/deSugar/DsMeta.hs index 812a726..060b63d 100644 --- a/compiler/deSugar/DsMeta.hs +++ b/compiler/deSugar/DsMeta.hs @@ -117,7 +117,7 @@ repTopDs :: HsGroup Name -> DsM (Core (TH.Q [TH.Dec])) repTopDs group = do { let { tv_bndrs = hsSigTvBinders (hs_valds group) ; bndrs = tv_bndrs ++ hsGroupBinders group } ; - ss <- pprTrace "reptop" (ppr bndrs $$ ppr tv_bndrs) $ mkGenSyms bndrs ; + ss <- mkGenSyms bndrs ; -- Bind all the names mainly to avoid repeated use of explicit strings. -- Thus we get _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
