X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FbasicTypes%2FIdInfo.lhs;h=02ef0db1429b223f91011714dfb6bd61856cfc6d;hb=8ab093423360990fc108d86098fc6bfb3b555269;hp=3261adf5ed784a6c2ec30becb638523f2f134679;hpb=dbcff8ab57f64bcc6abff68448fc33691410266e;p=ghc-hetmet.git

diff --git a/compiler/basicTypes/IdInfo.lhs b/compiler/basicTypes/IdInfo.lhs
index 3261adf..02ef0db 100644
--- a/compiler/basicTypes/IdInfo.lhs
+++ b/compiler/basicTypes/IdInfo.lhs
@@ -720,10 +720,7 @@ 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
+
 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}