Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/61cc04d13766e6454d7cb56721d2fb78b7fa519d >--------------------------------------------------------------- commit 61cc04d13766e6454d7cb56721d2fb78b7fa519d Author: Simon Peyton Jones <[email protected]> Date: Wed Aug 22 16:14:30 2012 +0100 A bit more debug output >--------------------------------------------------------------- compiler/typecheck/TcEvidence.lhs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/typecheck/TcEvidence.lhs b/compiler/typecheck/TcEvidence.lhs index 76408bd..6d1e6fb 100644 --- a/compiler/typecheck/TcEvidence.lhs +++ b/compiler/typecheck/TcEvidence.lhs @@ -190,7 +190,7 @@ mkTcCoVarCo ipv | otherwise = TcCoVarCo ipv where (ty1, ty2) = case getEqPredTys_maybe (varType ipv) of - Nothing -> pprPanic "mkCoVarLCo" (ppr ipv) + Nothing -> pprPanic "mkCoVarLCo" (ppr ipv $$ ppr (varType ipv)) Just tys -> tys \end{code} _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
