(Maybe RenamedHsExpr) -- Nothing if it's the result
-- Just arg, for an argument
(Maybe RenamedHsExpr) -- Nothing if it's the result
-- Just arg, for an argument
pp_orig (CCallOrigin clabel (Just arg_expr))
= hsep [ptext SLIT("an argument in the _ccall_ to"), quotes (text clabel) <> comma,
text "namely", quotes (ppr arg_expr)]
pp_orig (CCallOrigin clabel (Just arg_expr))
= hsep [ptext SLIT("an argument in the _ccall_ to"), quotes (text clabel) <> comma,
text "namely", quotes (ppr arg_expr)]