diff --git a/ghc/compiler/absCSyn/PprAbsC.lhs b/ghc/compiler/absCSyn/PprAbsC.lhs index ab2aa34acde5671d53d2be0346a7ca3809ddec46..ed066f120115d32297b0a4f0a378925902b05542 100644 --- a/ghc/compiler/absCSyn/PprAbsC.lhs +++ b/ghc/compiler/absCSyn/PprAbsC.lhs @@ -1148,8 +1148,7 @@ ppr_amode (CJoinPoint _) = panic "ppr_amode: CJoinPoint" ppr_amode (CMacroExpr pk macro as) - = parens (pprPrimKind pk) <> - parens (ptext (cExprMacroText macro) <> + = parens (ptext (cExprMacroText macro) <> parens (hcat (punctuate comma (map pprAmode as)))) \end{code}