Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : supercompiler
http://hackage.haskell.org/trac/ghc/changeset/254acbfa907ae7d5a63a1612d1e550016c3a38bd >--------------------------------------------------------------- commit 254acbfa907ae7d5a63a1612d1e550016c3a38bd Author: Max Bolingbroke <batterseapo...@hotmail.com> Date: Wed Feb 15 22:14:23 2012 +0000 Be less verbose when showing MatchLRs (terms are too large to include) >--------------------------------------------------------------- compiler/supercompile/Supercompile/Drive/Match.hs | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/supercompile/Supercompile/Drive/Match.hs b/compiler/supercompile/Supercompile/Drive/Match.hs index 1fce7f9..3717fda 100644 --- a/compiler/supercompile/Supercompile/Drive/Match.hs +++ b/compiler/supercompile/Supercompile/Drive/Match.hs @@ -122,9 +122,9 @@ eqAnnedTerm e1 e2 = case runMatch (matchTerm (matchRnEnv2 annedTermFreeVars e1 Just lrs -> all (\lr -> case lr of VarLR x_l x_r | x_l == x_r -> True; _ -> False) lrs instance Outputable MatchLR where - pprPrec _ (VarL x e') = ppr x <+> text "<->" <+> ppr e' - pprPrec _ (VarR e' x) = ppr e' <+> text "<->" <+> ppr x - pprPrec _ (VarLR x1 x2) = ppr x1 <+> text "<->" <+> ppr x2 + pprPrec _ (VarL x e') = ppr x <+> text "<->" <+> text "..." {- ppr e' -} + pprPrec _ (VarR e' x) = text "..." {- ppr e' -} <+> text "<->" <+> ppr x + pprPrec _ (VarLR x1 x2) = ppr x1 <+> text "<->" <+> ppr x2 match :: State -- ^ Tieback semantics -> State -- ^ This semantics _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
