X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FsimplStg%2FSRT.lhs;fp=compiler%2FsimplStg%2FSRT.lhs;h=eb3229f1962d674ed50fc1cb854474a2105de778;hp=cd118d70922bf0957030cb44eab6682ad417fd55;hb=d5934bbb856aa0aa620c9b2e0fa51c90a1a5a048;hpb=33b8b60e0aa925962cd11a8be98d9818666d58a0

diff --git a/compiler/simplStg/SRT.lhs b/compiler/simplStg/SRT.lhs
index cd118d7..eb3229f 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