X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FbasicTypes%2FIdInfo.lhs;h=b59ddf965406c057d2009a734eb2b229c6af46e8;hb=7739158ff9d983f80cb269f3c7cb38108e72e8ec;hp=9b39ccb02dd3c9840082eb5c35ce671b9feec9cf;hpb=8100cd4395e46ae747be4298c181a4730d6206bc;p=ghc-hetmet.git

diff --git a/compiler/basicTypes/IdInfo.lhs b/compiler/basicTypes/IdInfo.lhs
index 9b39ccb..b59ddf9 100644
--- a/compiler/basicTypes/IdInfo.lhs
+++ b/compiler/basicTypes/IdInfo.lhs
@@ -702,7 +702,9 @@ zapDemandInfo info@(IdInfo {newDemandInfo = dmd})
 
 \begin{code}
 zapFragileInfo :: IdInfo -> Maybe IdInfo
+-- Zap info that depends on free variables
 zapFragileInfo info = Just (info `setSpecInfo` emptySpecInfo
+				 `setWorkerInfo` NoWorker
                                  `setUnfoldingInfo` NoUnfolding)
 \end{code}
 
@@ -716,12 +718,9 @@ zapFragileInfo info = Just (info `setSpecInfo` emptySpecInfo
 type TickBoxId = Int
 
 data TickBoxOp 
-   = TickBox Module !TickBoxId  -- ^Tick box for Hpc-style coverage,
-				-- type = State# Void#
-   | BinaryTickBox Module !TickBoxId !TickBoxId
-    			  -- ^Binary tick box, with a tick for result = True, result = False,
-			  -- type = Bool -> Bool
+   = TickBox Module {-# UNPACK #-} !TickBoxId
+          -- ^Tick box for Hpc-style coverage
+
 instance Outputable TickBoxOp where
     ppr (TickBox mod n)         = ptext SLIT("tick") <+> ppr (mod,n)
-    ppr (BinaryTickBox mod t f) = ptext SLIT("btick") <+> ppr (mod,t,f)
 \end{code}