diff options
| author | Joachim Breitner <mail@joachim-breitner.de> | 2016-07-31 20:59:54 -0400 |
|---|---|---|
| committer | Joachim Breitner <mail@joachim-breitner.de> | 2016-08-18 09:27:40 -0400 |
| commit | 7fd2585c2a4fe47d8f4e028e672071d2d044f343 (patch) | |
| tree | f53a7e985b0baeb518ee872cceef7091fcd98efc | |
| parent | 113d50b791c469394d38fab6ce5b760e5e8c35e2 (diff) | |
| download | haskell-7fd2585c2a4fe47d8f4e028e672071d2d044f343.tar.gz | |
Comments only: Refer to actually existing Notes
| -rw-r--r-- | compiler/stranal/DmdAnal.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/stranal/DmdAnal.hs b/compiler/stranal/DmdAnal.hs index c7f07675f2..44d2d200fb 100644 --- a/compiler/stranal/DmdAnal.hs +++ b/compiler/stranal/DmdAnal.hs @@ -67,8 +67,9 @@ dmdAnalTopBind sigs (NonRec id rhs) ( _, _, _, rhs1) = dmdAnalRhsLetDown TopLevel Nothing sigs id rhs (sig, _, id2, rhs2) = dmdAnalRhsLetDown TopLevel Nothing (nonVirgin sigs) id rhs1 -- Do two passes to improve CPR information - -- See comments with ignore_cpr_info in mk_sig_ty - -- and with extendSigsWithLam + -- See Note [CPR for thunks] + -- See Note [Optimistic CPR in the "virgin" case] + -- See Note [Initial CPR for strict binders] dmdAnalTopBind sigs (Rec pairs) = (sigs', Rec pairs') |