projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
ad307d5
)
Add an Outputable EquationInfo instance
author
Ian Lynagh
<igloo@earth.li>
Sun, 4 May 2008 11:48:27 +0000
(11:48 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Sun, 4 May 2008 11:48:27 +0000
(11:48 +0000)
compiler/deSugar/DsMonad.lhs
patch
|
blob
|
history
diff --git
a/compiler/deSugar/DsMonad.lhs
b/compiler/deSugar/DsMonad.lhs
index
b4a46eb
..
3bb1493
100644
(file)
--- a/
compiler/deSugar/DsMonad.lhs
+++ b/
compiler/deSugar/DsMonad.lhs
@@
-78,6
+78,9
@@
data EquationInfo
= EqnInfo { eqn_pats :: [Pat Id], -- The patterns for an eqn
eqn_rhs :: MatchResult } -- What to do after match
+instance Outputable EquationInfo where
+ ppr (EqnInfo pats _) = ppr pats
+
type DsWrapper = CoreExpr -> CoreExpr
idDsWrapper :: DsWrapper
idDsWrapper e = e