X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcRnDriver.lhs;h=2542ad3b3d35e7b305d257a8de8f4e4601c48893;hb=74e1e73af872e63fbbec2bc9442494c3657053c3;hp=011b024aef9b9f45278624e24ff6ffeed0e178eb;hpb=1b381af863d64aaa0a4dd9c816170c58e6131a9e;p=ghc-hetmet.git diff --git a/compiler/typecheck/TcRnDriver.lhs b/compiler/typecheck/TcRnDriver.lhs index 011b024..2542ad3 100644 --- a/compiler/typecheck/TcRnDriver.lhs +++ b/compiler/typecheck/TcRnDriver.lhs @@ -1644,7 +1644,6 @@ ppr_tydecls tycons where le_sig tycon1 tycon2 = getOccName tycon1 <= getOccName tycon2 ppr_tycon tycon = ppr (tyThingToIfaceDecl (ATyCon tycon)) - where ppr_rules :: [CoreRule] -> SDoc ppr_rules [] = empty