X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=Pretty.hs;h=2bf57f761541e3280bec0a32175c78a12d81b344;hb=b2a68b424663d5a909791080c416a54088321936;hp=78876b30127b835e314dfcf4493edf77d69d6d01;hpb=472a96af53dd624ba526ab86f250ac8f88a152ef;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/Pretty.hs b/Pretty.hs
index 78876b3..2bf57f7 100644
--- a/Pretty.hs
+++ b/Pretty.hs
@@ -74,8 +74,9 @@ instance Pretty FuncData where
       pparch (Just _) = text "VHDL architecture present"
 
 instance Pretty Entity where
-  pPrint (Entity args res decl) =
-    text "Args: " $$ nest 10 (pPrint args)
+  pPrint (Entity id args res decl) =
+    text "Entity id: " $$ nest 10 (pPrint id)
+    $+$ text "Args: " $$ nest 10 (pPrint args)
     $+$ text "Result: " $$ nest 10 (pPrint res)
     $+$ ppdecl decl
     where