diff options
| author | simonpj@microsoft.com <unknown> | 2010-09-24 15:56:14 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2010-09-24 15:56:14 +0000 |
| commit | 04d927e7ed15e20b264c6a3531391776def9cab5 (patch) | |
| tree | fc0618ea14886f1e0b796a858a24b061f8b88fb1 /compiler | |
| parent | 04bc9a6fb57be9ea4a9ab9d03d521f22622299cd (diff) | |
| download | haskell-04d927e7ed15e20b264c6a3531391776def9cab5.tar.gz | |
Add a debug print
Diffstat (limited to 'compiler')
| -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) |