From 6808406c77307ba110ec5fc7e03fa7359fdf4646 Mon Sep 17 00:00:00 2001
From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
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 = "<note>"
instance Show TypeRep.PredType where
show t = "_PredType:(" ++ (showSDoc $ ppr t) ++ ")"
instance Show TyCon.TyCon where
--
2.30.2