diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2014-08-29 10:19:37 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2014-08-29 10:21:39 +0100 |
| commit | 9fae691982f02bc1d004ab26cf7829f8d1a53fcb (patch) | |
| tree | 954ed1dc1971f2a9d0ca8014a2560de337e6403b /compiler | |
| parent | db5868cf0589b36df2948517a47930dd676974a0 (diff) | |
| download | haskell-9fae691982f02bc1d004ab26cf7829f8d1a53fcb.tar.gz | |
Improve "specImport discarding" message
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/specialise/Specialise.lhs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/specialise/Specialise.lhs b/compiler/specialise/Specialise.lhs index ee8f69315c..517f022fb5 100644 --- a/compiler/specialise/Specialise.lhs +++ b/compiler/specialise/Specialise.lhs @@ -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 '_' |