X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fiface%2FBinIface.hs;h=782badad04400f45f142c138406f90eea5592022;hb=8100cd4395e46ae747be4298c181a4730d6206bc;hp=72ea80deb74c250388f18411a145a0615e073e78;hpb=859001105a5cbb15959f04519911da86e597f2e1;p=ghc-hetmet.git

diff --git a/compiler/iface/BinIface.hs b/compiler/iface/BinIface.hs
index 72ea80d..782bada 100644
--- a/compiler/iface/BinIface.hs
+++ b/compiler/iface/BinIface.hs
@@ -1002,15 +1002,6 @@ instance Binary IfaceNote where
     put_ bh (IfaceCoreNote s) = do
             putByte bh 4
             put_ bh s
-    put_ bh (IfaceTickBox m n) = do
-            putByte bh 5
-            put_ bh m
-            put_ bh n
-    put_ bh (IfaceBinaryTickBox m t e) = do
-            putByte bh 6
-            put_ bh m
-            put_ bh t
-            put_ bh e
     get bh = do
 	    h <- getByte bh
 	    case h of
@@ -1019,13 +1010,6 @@ instance Binary IfaceNote where
 	      3 -> do return IfaceInlineMe
               4 -> do ac <- get bh
                       return (IfaceCoreNote ac)
-              5 -> do m <- get bh
-                      n <- get bh
-                      return (IfaceTickBox m n)
-              6 -> do m <- get bh
-                      t <- get bh
-                      e <- get bh
-                      return (IfaceBinaryTickBox m t e)
 
 -------------------------------------------------------------------------
 --		IfaceDecl and friends