From 6808406c77307ba110ec5fc7e03fa7359fdf4646 Mon Sep 17 00:00:00 2001 From: Matthijs Kooijman Date: Wed, 15 Apr 2009 10:40:11 +0200 Subject: [PATCH] Derive Show CoreSyn.Note. --- CoreShow.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/CoreShow.hs b/CoreShow.hs index e45d85f..75bacef 100644 --- a/CoreShow.hs +++ b/CoreShow.hs @@ -29,12 +29,11 @@ deriving instance (Show x, OutputableBndr x) => Show (HsExpr.StmtLR x x) deriving instance (Show x, OutputableBndr x) => Show (HsExpr.HsExpr x) deriving instance Show (RdrName.RdrName) deriving instance (Show idL, Show idR, OutputableBndr idL, OutputableBndr idR) => Show (HsBinds.HsBindLR idL idR) +deriving instance Show CoreSyn.Note -- Implement dummy shows, since deriving them will need loads of other shows -- as well. -instance Show CoreSyn.Note where - show n = "" instance Show TypeRep.PredType where show t = "_PredType:(" ++ (showSDoc $ ppr t) ++ ")" instance Show TyCon.TyCon where -- 2.30.2