diff options
| author | Gabor Greif <ggreif@gmail.com> | 2019-11-08 21:38:17 +0100 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2019-11-08 21:38:17 +0100 |
| commit | 24b3dff85977ed5e5758992637822acd1def47c0 (patch) | |
| tree | 826c4b3070bad90b4304939566d1bda7a971f682 | |
| parent | 7677ad511836ee72a7eaf5ac4c8211cde467c1b8 (diff) | |
| download | haskell-wip/ggreif-ci.tar.gz | |
lazy patternwip/ggreif-ci
| -rw-r--r-- | compiler/GHC/StgToCmm/Expr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/StgToCmm/Expr.hs b/compiler/GHC/StgToCmm/Expr.hs index 43aa7743ea..f173200d9f 100644 --- a/compiler/GHC/StgToCmm/Expr.hs +++ b/compiler/GHC/StgToCmm/Expr.hs @@ -643,7 +643,7 @@ cgAlts gc_plan bndr (AlgAlt tycon) alts if p a then (if null n then l else a : y, n) else (y, if null y then l else a : n) - (via_ptr, via_info) = partition_ ((< maxpt) . fst) branches' + ~(via_ptr, via_info) = partition_ ((< maxpt) . fst) branches' small = isSmallFamily dflags fam_sz -- Is the constructor tag in the node reg? |