X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2FsimplCore%2FSimplify.lhs;h=cab6460e76235b7a66e1f150c34b09b4fa43dd72;hb=4c7846e8a0336f71d5c16798e103980f83532c30;hp=25dc2bafcf4c3de4bcbd16155f8d47fb39a9b187;hpb=41c6c5d091021a859a7508b47e9fa8a19230b033;p=ghc-hetmet.git

diff --git a/compiler/simplCore/Simplify.lhs b/compiler/simplCore/Simplify.lhs
index 25dc2ba..cab6460 100644
--- a/compiler/simplCore/Simplify.lhs
+++ b/compiler/simplCore/Simplify.lhs
@@ -1165,6 +1165,9 @@ rebuildCase env scrut case_bndr [(con,bndrs,rhs)] cont
 	-- The case binder is going to be evaluated later, 
 	-- and the scrutinee is a simple variable
     var_demanded_later (Var v) = isStrictDmd (idNewDemandInfo case_bndr)
+    		       	         && not (isTickBoxOp v)	
+				    -- ugly hack; covering this case is what 
+				    -- exprOkForSpeculation was intended for.
     var_demanded_later other   = False