diff options
Diffstat (limited to 'compiler/simplStg/StgStats.hs')
| -rw-r--r-- | compiler/simplStg/StgStats.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/simplStg/StgStats.hs b/compiler/simplStg/StgStats.hs index 712ec2d22e..8dd5630932 100644 --- a/compiler/simplStg/StgStats.hs +++ b/compiler/simplStg/StgStats.hs @@ -172,6 +172,6 @@ statExpr (StgCase expr _ _ alts) countOne StgCases where stat_alts alts - = combineSEs (map statExpr [ e | (_,_,e) <- alts ]) + = combineSEs (map statExpr [ e | (_,_,e,_) <- alts ]) statExpr (StgLam {}) = panic "statExpr StgLam" |