- ppfunc (hsfunc, (flatfunc)) =
- pPrint hsfunc $+$ (text "Flattened: " $$ nest 15 (pPrint flatfunc))
+ ppfunc (hsfunc, (FuncData flatfunc)) =
+ pPrint hsfunc $+$ (text "Flattened: " $$ nest 15 (ppffunc flatfunc))
+ ppffunc (Just (Left f)) = pPrint f
+ ppffunc (Just (Right f)) = pPrint f
+ ppffunc Nothing = text "Nothing"