diff options
Diffstat (limited to 'compiler/simplStg/SRT.lhs')
| -rw-r--r-- | compiler/simplStg/SRT.lhs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/simplStg/SRT.lhs b/compiler/simplStg/SRT.lhs index cd118d7092..eb3229f196 100644 --- a/compiler/simplStg/SRT.lhs +++ b/compiler/simplStg/SRT.lhs @@ -116,6 +116,8 @@ srtExpr table e@(StgOpApp op args ty) = e srtExpr table (StgSCC cc expr) = StgSCC cc $! srtExpr table expr +srtExpr table (StgTick m n expr) = StgTick m n $! srtExpr table expr + srtExpr table (StgCase scrut live1 live2 uniq srt alt_type alts) = StgCase expr' live1 live2 uniq srt' alt_type alts' where |