diff options
| -rw-r--r-- | compiler/hsSyn/HsBinds.lhs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/hsSyn/HsBinds.lhs b/compiler/hsSyn/HsBinds.lhs index 15fd419271..7b4c17cb67 100644 --- a/compiler/hsSyn/HsBinds.lhs +++ b/compiler/hsSyn/HsBinds.lhs @@ -295,6 +295,7 @@ ppr_monobind (FunBind { fun_id = fun, fun_infix = inf, = pprTicks empty (case tick of Nothing -> empty Just t -> text "-- tick id = " <> ppr t) + $$ ifPprDebug (pprBndr LetBind (unLoc fun)) $$ pprFunBind (unLoc fun) inf matches $$ ifPprDebug (ppr wrap) |