diff options
| author | Gabor Greif <ggreif@gmail.com> | 2017-03-09 10:22:28 +0100 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2017-03-09 10:39:24 +0100 |
| commit | 9ff05742de1ec1838c0fd358b194b29c8b3ed10b (patch) | |
| tree | 42d707f60d94e2f4d05260f9253e1db127d93246 /compiler/simplCore | |
| parent | 9e15db49b57df992184d342830ea830aabc626c9 (diff) | |
| download | haskell-9ff05742de1ec1838c0fd358b194b29c8b3ed10b.tar.gz | |
Comments only [ci skip]
Diffstat (limited to 'compiler/simplCore')
| -rw-r--r-- | compiler/simplCore/Simplify.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/simplCore/Simplify.hs b/compiler/simplCore/Simplify.hs index 969fb3ee05..b63e7456cd 100644 --- a/compiler/simplCore/Simplify.hs +++ b/compiler/simplCore/Simplify.hs @@ -1814,7 +1814,7 @@ tryRules env rules fn args call_cont -- many args the rule consumed occ_anald_rhs = occurAnalyseExpr rule_rhs - -- See Note [Occurence-analyse after rule firing] + -- See Note [Occurrence-analyse after rule firing] ; dump dflags rule rule_rhs ; return (Just (occ_anald_rhs, cont')) }}} where @@ -1847,7 +1847,7 @@ tryRules env rules fn args call_cont = liftIO . dumpSDoc dflags alwaysQualify flag "" $ sep [text hdr, nest 4 details] -{- Note [Occurence-analyse after rule firing] +{- Note [Occurrence-analyse after rule firing] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ After firing a rule, we occurrence-analyse the instantiated RHS before simplifying it. Usually this doesn't make much difference, but it can |