- ppfunc (hsfunc, (FuncData flatfunc)) =
- pPrint hsfunc $+$ (text "Flattened: " $$ nest 15 (pPrint flatfunc))
+ ppfunc (hsfunc, (FuncData flatfunc entity arch)) =
+ pPrint hsfunc $+$ (text "Flattened: " $$ nest 15 (ppffunc flatfunc))
+ $+$ (text "Entity") $$ nest 15 (ppent entity)
+ $+$ pparch arch
+ ppffunc (Just f) = pPrint f
+ ppffunc Nothing = text "Nothing"
+ ppent (Just e) = pPrint e
+ ppent Nothing = text "Nothing"
+ pparch Nothing = text "VHDL architecture not present"
+ pparch (Just _) = text "VHDL architecture present"