diff options
Diffstat (limited to 'compiler/GHC/Tc/Module.hs')
| -rw-r--r-- | compiler/GHC/Tc/Module.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/compiler/GHC/Tc/Module.hs b/compiler/GHC/Tc/Module.hs index e690d1e5a2..d8ec1e1b16 100644 --- a/compiler/GHC/Tc/Module.hs +++ b/compiler/GHC/Tc/Module.hs @@ -2241,6 +2241,9 @@ tcUserStmt :: GhciLStmt GhcPs -> TcM (PlanResult, FixityEnv) -- An expression typed at the prompt is treated very specially tcUserStmt (L loc (BodyStmt _ expr _ _)) = do { (rn_expr, fvs) <- checkNoErrs (rnLExpr expr) + + ; dumpOptTcRn Opt_D_dump_rn_ast "Renamer" FormatHaskell + (showAstData NoBlankSrcSpan NoBlankEpAnnotations rn_expr) -- Don't try to typecheck if the renamer fails! ; ghciStep <- getGhciStepIO ; uniq <- newUnique @@ -2337,6 +2340,9 @@ tcUserStmt (L loc (BodyStmt _ expr _ _)) then no_it_plans else it_plans + ; dumpOptTcRn Opt_D_dump_tc_ast "Typechecker AST" FormatHaskell + (showAstData NoBlankSrcSpan NoBlankEpAnnotations plan) + ; fix_env <- getFixityEnv ; return (plan, fix_env) } |