- ppfunc (hsfunc, (FuncData flatfunc entity arch)) =
- pPrint hsfunc $+$ (text "Flattened: " $$ nest 15 (ppffunc flatfunc))
- $+$ (text "Entity") $$ nest 15 (ppent entity)
- $+$ pparch arch
+ ppfunc (hsfunc, fdata) =
+ pPrint hsfunc $+$ nest 5 (pPrint fdata)
+ modname = showSDoc $ Module.pprModule (HscTypes.cm_module mod)
+
+instance Pretty FuncData where
+ pPrint (FuncData flatfunc entity arch) =
+ text "Flattened: " $$ nest 15 (ppffunc flatfunc)
+ $+$ text "Entity" $$ nest 15 (ppent entity)
+ $+$ pparch arch
+ where