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