diff options
| author | Gabor Greif <ggreif@gmail.com> | 2012-07-18 12:25:58 +0200 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2012-07-18 12:25:58 +0200 |
| commit | 3ae9f0f97583a3084a76cf7e31931bd9ef5f4173 (patch) | |
| tree | 67abc9975e1a4aa534f51470aa33fc8b150d528f /compiler | |
| parent | f25718b039f8a31dc158ab8dad3c9523ee6f87e5 (diff) | |
| download | haskell-3ae9f0f97583a3084a76cf7e31931bd9ef5f4173.tar.gz | |
typos in trace strings (which I observed in compile output)
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/simplCore/SimplCore.lhs | 2 | ||||
| -rw-r--r-- | compiler/specialise/Rules.lhs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/compiler/simplCore/SimplCore.lhs b/compiler/simplCore/SimplCore.lhs index d8c6732c34..731f55128c 100644 --- a/compiler/simplCore/SimplCore.lhs +++ b/compiler/simplCore/SimplCore.lhs @@ -586,7 +586,7 @@ simplifyPgmIO pass@(CoreDoSimplify max_iterations mode) -- about to begin, with '1' for the first | iteration_no > max_iterations -- Stop if we've run out of iterations = WARN( debugIsOn && (max_iterations > 2) - , hang (ptext (sLit "Simplifier baling out after") <+> int max_iterations + , hang (ptext (sLit "Simplifier bailing out after") <+> int max_iterations <+> ptext (sLit "iterations") <+> (brackets $ hsep $ punctuate comma $ map (int . simplCountN) (reverse counts_so_far))) diff --git a/compiler/specialise/Rules.lhs b/compiler/specialise/Rules.lhs index 498302a5e9..0cf858e7b5 100644 --- a/compiler/specialise/Rules.lhs +++ b/compiler/specialise/Rules.lhs @@ -726,7 +726,7 @@ match_co :: RuleEnv match_co renv subst (CoVarCo cv) co = match_var renv subst cv (Coercion co) match_co _ _ co1 _ - = pprTrace "match_co baling out" (ppr co1) Nothing + = pprTrace "match_co bailing out" (ppr co1) Nothing ------------- rnMatchBndr2 :: RuleEnv -> RuleSubst -> Var -> Var -> RuleEnv |