Moved to new GHC API (6.11). Also use vhdl package for the VHDL AST

[matthijs/master-project/cλash.git] / CoreShow.hs

diff --git a/CoreShow.hs b/CoreShow.hs
index e45d85f743dd8b2099da8b9376555cbd311b8385..09abed667003cdcbca4493245ed7f3ba9ae81019 100644 (file)
--- a/CoreShow.hs
+++ b/CoreShow.hs
@@ -24,17 +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