- ppffunc (Just (Left f)) = pPrint f
- ppffunc (Just (Right f)) = pPrint f
- ppffunc Nothing = text "Nothing"
+ $+$ (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"