X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=CoreShow.hs;h=09abed667003cdcbca4493245ed7f3ba9ae81019;hb=b8c1e8554ba8aee73bc9d9a54bb3cb32f7930957;hp=75bacefe3b278f493177007e13dbb6c64209ef05;hpb=6808406c77307ba110ec5fc7e03fa7359fdf4646;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/CoreShow.hs b/CoreShow.hs
index 75bacef..09abed6 100644
--- a/CoreShow.hs
+++ b/CoreShow.hs
@@ -24,6 +24,7 @@ deriving instance (Show b) => Show (CoreSyn.Expr b)
 deriving instance (Show b) => Show (CoreSyn.Bind b)
 deriving instance Show TypeRep.Type
 deriving instance (Show n, OutputableBndr n) => Show (HsTypes.HsType n)
+deriving instance (Show n, OutputableBndr n) => Show (HsTypes.ConDeclField n)
 deriving instance (Show x) => Show (SrcLoc.Located x)
 deriving instance (Show x, OutputableBndr x) => Show (HsExpr.StmtLR x x)
 deriving instance (Show x, OutputableBndr x) => Show (HsExpr.HsExpr x)