Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : ghc-constraint-solver
http://hackage.haskell.org/trac/ghc/changeset/5bc62a0831c9f79f58a779cd998a83c86e61e113 >--------------------------------------------------------------- commit 5bc62a0831c9f79f58a779cd998a83c86e61e113 Author: Simon Peyton Jones <[email protected]> Date: Wed Oct 26 18:05:21 2011 +0100 Correct braces in debug prints >--------------------------------------------------------------- compiler/typecheck/TcInteract.lhs | 2 +- compiler/typecheck/TcSimplify.lhs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/typecheck/TcInteract.lhs b/compiler/typecheck/TcInteract.lhs index f7a7201..06b4a2c 100644 --- a/compiler/typecheck/TcInteract.lhs +++ b/compiler/typecheck/TcInteract.lhs @@ -175,7 +175,7 @@ runSolverPipeline pipeline workItem = do { traceTcS "runSolverPipeline" $ text "Stage name = " <+> text stg_name <+> text "{" ; res <- stg ct - ; traceTcS "runSolverPipeline" $ text "End stage." + ; traceTcS "runSolverPipeline" $ text "} End stage" ; run_pipeline stgs res } \end{code} diff --git a/compiler/typecheck/TcSimplify.lhs b/compiler/typecheck/TcSimplify.lhs index 5b57ad4..2570c09 100644 --- a/compiler/typecheck/TcSimplify.lhs +++ b/compiler/typecheck/TcSimplify.lhs @@ -748,7 +748,7 @@ solve_wanteds wanted@(WC { wc_flat = flats, wc_impl = implics, wc_insol = insols then return implic_eqs else applyDefaultingRules unsolved_flats - ; traceTcS "solveWanteds: simpl_loop end }" $ + ; traceTcS "solveWanteds: simpl_loop end" $ vcat [ text "improve_eqs =" <+> ppr improve_eqs , text "unsolved_flats =" <+> ppr unsolved_flats , text "unsolved_implics =" <+> ppr unsolved_implics ] _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
