From 51bbe15ff6465e4e4abc227ceec6d534a1840df0 Mon Sep 17 00:00:00 2001
From: quintela <unknown>
Date: Tue, 2 Dec 1997 18:08:00 +0000
Subject: [PATCH] [project @ 1997-12-02 18:08:00 by quintela] Deleted
NAmedThing Constraint of Outputable InPat
---
ghc/compiler/hsSyn/HsPat.lhs | 9 +++++++--
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/ghc/compiler/hsSyn/HsPat.lhs b/ghc/compiler/hsSyn/HsPat.lhs
index 94b9b678a722..2405fae4a361 100644
--- a/ghc/compiler/hsSyn/HsPat.lhs
+++ b/ghc/compiler/hsSyn/HsPat.lhs
@@ -127,11 +127,16 @@ data OutPat tyvar uvar id
[id] -- methods
\end{code}
+Now name in Inpat is not need to be in NAmedThing to be Outputable.
+Needed by ../deSugar/Check.lhs
+
+JJQC-2-12-97
+
\begin{code}
-instance (Outputable name, NamedThing name) => Outputable (InPat name) where
+instance (Outputable name) => Outputable (InPat name) where
ppr = pprInPat
-pprInPat :: (Outputable name, NamedThing name) => PprStyle -> InPat name -> Doc
+pprInPat :: (Outputable name) => PprStyle -> InPat name -> Doc
pprInPat sty (WildPatIn) = char '_'
pprInPat sty (VarPatIn var) = ppr sty var
--
GitLab