instance Pretty id => Pretty (CondDef id) where
pPrint _ = text "TODO"
-instance Pretty id => Pretty (Signal id) where
- pPrint (Signal id) = pPrint id
+instance Pretty SignalInfo where
+ pPrint (SignalInfo Nothing) = empty
+ pPrint (SignalInfo (Just name)) = text ":" <> text name
instance Pretty VHDLSession where
pPrint (VHDLSession mod nameCount funcs) =