Add Pretty instance for VHDLSession.

diff --git a/Pretty.hs b/Pretty.hs
index bb62591007c64b089a6476a26815d88c8248f1e6..96f7f6e8d6b3b2a73fb1169e758bcd56f5fbc926 100644 (file)
--- a/Pretty.hs
+++ b/Pretty.hs
@@ -2,6 +2,7 @@ module Pretty (prettyShow) where
 
 import Text.PrettyPrint.HughesPJClass
 import Flatten
+import TranslatorTypes
 
 instance Pretty HsFunction where
   pPrint (HsFunction name args res) =
@@ -38,3 +39,11 @@ instance Pretty SignalUse where
 
 instance Pretty CondDef where
   pPrint _ = text "TODO"
+
+instance Pretty VHDLSession where
+  pPrint (VHDLSession nameCount funcs) =
+    text "NameCount: " $$ nest 15 (int nameCount)
+    $+$ text "Functions: " $$ nest 15 (vcat (map ppfunc funcs))
+    where
+      ppfunc (hsfunc, (flatfunc)) =
+        pPrint hsfunc $+$ (text "Flattened: " $$ nest 15 (pPrint flatfunc))