X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=Pretty.hs;h=25fa899cea085f7a91fd530104bb15efa69ece3c;hb=6c48ed90faf1e1827e32f2664f97f6ad1e2dd508;hp=7896372f2d27dd01603664e4602dac15901dce70;hpb=2fa8431a83031128428caa8f833a3396de34536f;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/Pretty.hs b/Pretty.hs
index 7896372..25fa899 100644
--- 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) =