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-25 18:17:16 +0200 |
| commit | 7a86f58436434e7228efc7bd88a18230de104825 (patch) | |
| tree | 70cf02bd1c9b2b636e9d9eb333cd5f49a8869fd1 | |
| parent | 613d745523f181991f6f916bbe58082b7970f7e6 (diff) | |
| download | haskell-7a86f58436434e7228efc7bd88a18230de104825.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') |