Merge git://github.com/darchon/clash into cλash

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

diff --git a/Pretty.hs b/Pretty.hs
index 7896372f2d27dd01603664e4602dac15901dce70..25fa899cea085f7a91fd530104bb15efa69ece3c 100644 (file)
--- a/Pretty.hs
+++ b/Pretty.hs
@@ -137,6 +137,9 @@ instance (OutputableBndr b, Show b) => Pretty (CoreSyn.Expr b) where
 
 instance Pretty AST.VHDLId where
   pPrint id = ForSyDe.Backend.Ppr.ppr id
+  
+instance Pretty AST.VHDLName where
+  pPrint name = ForSyDe.Backend.Ppr.ppr name
 
 prettyBind :: (Show b, Show e) => (b, e) -> Doc
 prettyBind (b, expr) =