diff options
author | Gabor Greif <ggreif@gmail.com> | 2013-01-24 16:06:57 +0100 |
---|---|---|
committer | Gabor Greif <ggreif@gmail.com> | 2013-01-30 21:45:31 +0100 |
commit | 3e1745aa272077c98254ce9b79e62b92c40948a9 (patch) | |
tree | d9dca5075561442dafcf8bb3cb627dec7cc0a9e6 /compiler/simplCore/SimplUtils.lhs | |
parent | a217e7a27a8d48095e2e276ed07a203254bf8743 (diff) | |
download | haskell-3e1745aa272077c98254ce9b79e62b92c40948a9.tar.gz |
typos
Diffstat (limited to 'compiler/simplCore/SimplUtils.lhs')
-rw-r--r-- | compiler/simplCore/SimplUtils.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/simplCore/SimplUtils.lhs b/compiler/simplCore/SimplUtils.lhs index 00c55e533f..7bc10de43f 100644 --- a/compiler/simplCore/SimplUtils.lhs +++ b/compiler/simplCore/SimplUtils.lhs @@ -509,7 +509,7 @@ updModeForInlineRules inline_rule_act current_mode , sm_inline = True , sm_eta_expand = False } -- For sm_rules, just inherit; sm_rules might be "off" - -- becuase of -fno-enable-rewrite-rules + -- because of -fno-enable-rewrite-rules where phaseFromActivation (ActiveAfter n) = Phase n phaseFromActivation _ = InitialPhase @@ -933,7 +933,7 @@ postInlineUnconditionally dflags env top_lvl bndr occ_info rhs unfolding = case occ_info of -- The point of examining occ_info here is that for *non-values* -- that occur outside a lambda, the call-site inliner won't have - -- a chance (becuase it doesn't know that the thing + -- a chance (because it doesn't know that the thing -- only occurs once). The pre-inliner won't have gotten -- it either, if the thing occurs in more than one branch -- So the main target is things like |