Commit 9fae6919 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Improve "specImport discarding" message

parent db5868cf
......@@ -1614,7 +1614,8 @@ instance Outputable CallInfoSet where
pprCallInfo :: Id -> CallInfo -> SDoc
pprCallInfo fn (CallKey mb_tys, (dxs, _))
= hang (ppr fn) 2 (sep (map ppr_call_key_ty mb_tys ++ map pprParendExpr dxs))
= hang (ppr fn <+> dcolon <+> ppr (idType fn))
2 (ptext (sLit "args:") <+> fsep (map ppr_call_key_ty mb_tys ++ map pprParendExpr dxs))
ppr_call_key_ty :: Maybe Type -> SDoc
ppr_call_key_ty Nothing = char '_'
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment