Deleted NAmedThing Constraint of Outputable InPat
[id] -- methods
\end{code}
[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
+
-instance (Outputable name, NamedThing name) => Outputable (InPat name) where
+instance (Outputable name) => Outputable (InPat name) where
-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
pprInPat sty (WildPatIn) = char '_'
pprInPat sty (VarPatIn var) = ppr sty var