[commit: ghc] supercompiler: Be less verbose when showing MatchLRs (terms are too large to include) (254acbf)

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : supercompiler

http://hackage.haskell.org/trac/ghc/changeset/254acbfa907ae7d5a63a1612d1e550016c3a38bd

>---------------------------------------------------------------

commit 254acbfa907ae7d5a63a1612d1e550016c3a38bd
Author: Max Bolingbroke <[email protected]>
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