From 6a67ffb865be0f1fe0ceea678fc2b8f57f438279 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sun, 4 May 2008 11:48:27 +0000 Subject: [PATCH] Add an Outputable EquationInfo instance --- compiler/deSugar/DsMonad.lhs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/compiler/deSugar/DsMonad.lhs b/compiler/deSugar/DsMonad.lhs index b4a46eb..3bb1493 100644 --- 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 -- 1.7.10.4