diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2016-09-19 10:08:29 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2016-10-21 17:07:44 +0100 |
| commit | 82efad788ed331ae16b586a4fbe4c4a4f92ee638 (patch) | |
| tree | 0a018bd3a71ad8332305e8778edfa181a5d789dc /compiler/hsSyn/HsBinds.hs | |
| parent | 45bfd1a65978ee282d8d2cc1ddb7e3e5f4cd4717 (diff) | |
| download | haskell-82efad788ed331ae16b586a4fbe4c4a4f92ee638.tar.gz | |
Comments and trivial refactoring
Diffstat (limited to 'compiler/hsSyn/HsBinds.hs')
| -rw-r--r-- | compiler/hsSyn/HsBinds.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/compiler/hsSyn/HsBinds.hs b/compiler/hsSyn/HsBinds.hs index 236892e70d..487859249f 100644 --- a/compiler/hsSyn/HsBinds.hs +++ b/compiler/hsSyn/HsBinds.hs @@ -593,6 +593,7 @@ ppr_monobind (AbsBinds { abs_tvs = tyvars, abs_ev_vars = dictvars pprLHsBinds val_binds ppr_monobind (AbsBindsSig { abs_tvs = tyvars , abs_ev_vars = dictvars + , abs_sig_export = poly_id , abs_sig_ev_bind = ev_bind , abs_sig_bind = bind }) = sdocWithDynFlags $ \ dflags -> @@ -600,7 +601,8 @@ ppr_monobind (AbsBindsSig { abs_tvs = tyvars hang (text "AbsBindsSig" <+> brackets (interpp'SP tyvars) <+> brackets (interpp'SP dictvars)) 2 $ braces $ vcat - [ text "Bind:" <+> ppr bind + [ text "Exported type:" <+> pprBndr LetBind poly_id + , text "Bind:" <+> ppr bind , text "Evidence:" <+> ppr ev_bind ] else ppr bind |