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

diff --git a/CoreShow.hs b/CoreShow.hs
index 35abd8b..09abed6 100644
--- a/CoreShow.hs
+++ b/CoreShow.hs
@@ -11,6 +11,7 @@ import qualified TyCon
 
 import qualified HsTypes
 import qualified HsExpr
+import qualified HsBinds
 import qualified SrcLoc
 import qualified RdrName
 
@@ -23,16 +24,17 @@ 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)
 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
@@ -49,6 +51,10 @@ instance Show (HsExpr.GroupByClause x) where
   show b = "_GroupByClause"
 instance Show (HsExpr.HsStmtContext x) where
   show b = "_HsStmtContext"
+instance Show (HsBinds.Prag) where
+  show b = "_Prag"
+instance Show (HsExpr.GRHSs id) where
+  show b = "_GRHSs"
 
 
 instance (Outputable x) => Show x where