From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Wed, 15 Apr 2009 08:40:11 +0000 (+0200)
Subject: Derive Show CoreSyn.Note.
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=6808406c77307ba110ec5fc7e03fa7359fdf4646;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

Derive Show CoreSyn.Note.
---

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 = "<note>"
 instance Show TypeRep.PredType where
   show t = "_PredType:(" ++ (showSDoc $ ppr t) ++ ")"
 instance Show TyCon.TyCon where