X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2Fiface%2FBinIface.hs;h=9bdb7b6ff0083638ee88006064996fec297b77a1;hb=d33c0b24a0306cc57161b7ed7ff2510d0b017b11;hp=f32049ee09688cb6c1540a2cb263028bc9de5c63;hpb=7739158ff9d983f80cb269f3c7cb38108e72e8ec;p=ghc-hetmet.git

diff --git a/compiler/iface/BinIface.hs b/compiler/iface/BinIface.hs
index f32049e..9bdb7b6 100644
--- a/compiler/iface/BinIface.hs
+++ b/compiler/iface/BinIface.hs
@@ -690,6 +690,16 @@ instance Binary IfaceBndr where
 	      _ -> do ab <- get bh
 		      return (IfaceTvBndr ab)
 
+instance Binary IfaceLetBndr where
+    put_ bh (IfLetBndr a b c) = do
+	    put_ bh a
+	    put_ bh b
+	    put_ bh c
+    get bh = do a <- get bh
+	        b <- get bh
+	        c <- get bh
+		return (IfLetBndr a b c)	   
+
 instance Binary IfaceType where
     put_ bh (IfaceForAllTy aa ab) = do
 	    putByte bh 0