- ppfunc (hsfunc, (flatfunc)) =
- pPrint hsfunc $+$ (text "Flattened: " $$ nest 15 (pPrint flatfunc))
+ ppfunc (hsfunc, (FuncData flatfunc entity)) =
+ pPrint hsfunc $+$ (text "Flattened: " $$ nest 15 (ppffunc flatfunc))
+ $+$ (text "Entity") $$ nest 15 (ppent entity)
+ ppffunc (Just f) = pPrint f
+ ppffunc Nothing = text "Nothing"
+ ppent (Just e) = pPrint e
+ ppent Nothing = text "Nothing"