$+$ text "Functions: " $$ nest 15 (vcat (map ppfunc funcs))
where
ppfunc (hsfunc, (flatfunc)) =
pPrint hsfunc $+$ (text "Flattened: " $$ nest 15 (pPrint flatfunc))
$+$ text "Functions: " $$ nest 15 (vcat (map ppfunc funcs))
where
ppfunc (hsfunc, (flatfunc)) =
pPrint hsfunc $+$ (text "Flattened: " $$ nest 15 (pPrint flatfunc))