diff options
| author | simonpj@microsoft.com <unknown> | 2007-11-28 15:03:54 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2007-11-28 15:03:54 +0000 |
| commit | b566be3509bacb565acb5fbda67a93967bd99359 (patch) | |
| tree | 4527af6657589c8ff7d8f2c5b2f110ad00669cc6 /compiler/hsSyn/HsBinds.lhs | |
| parent | f0bea9fa4679c458ec8d6838fa3e38df2101d935 (diff) | |
| download | haskell-b566be3509bacb565acb5fbda67a93967bd99359.tar.gz | |
Print a bit more info in VarBinds (no need to merge)
Diffstat (limited to 'compiler/hsSyn/HsBinds.lhs')
| -rw-r--r-- | compiler/hsSyn/HsBinds.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/hsSyn/HsBinds.lhs b/compiler/hsSyn/HsBinds.lhs index ccd0f0ad0c..2fa2959c2e 100644 --- a/compiler/hsSyn/HsBinds.lhs +++ b/compiler/hsSyn/HsBinds.lhs @@ -264,7 +264,7 @@ instance (OutputableBndr idL, OutputableBndr idR) => Outputable (HsBindLR idL id ppr_monobind :: (OutputableBndr idL, OutputableBndr idR) => HsBindLR idL idR -> SDoc ppr_monobind (PatBind { pat_lhs = pat, pat_rhs = grhss }) = pprPatBind pat grhss -ppr_monobind (VarBind { var_id = var, var_rhs = rhs }) = ppr var <+> equals <+> pprExpr (unLoc rhs) +ppr_monobind (VarBind { var_id = var, var_rhs = rhs }) = pprBndr CaseBind var <+> equals <+> pprExpr (unLoc rhs) ppr_monobind (FunBind { fun_id = fun, fun_infix = inf, fun_matches = matches, fun_tick = tick }) = |