X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fiface%2FBinIface.hs;h=4664bf14eda5d654a46c4b81908c32a88d74954b;hb=970d5b88b1554bbdd7e459dae41aab3668ae897a;hp=0ffd37dec71fa1e61ad328f0a6d2f568ae5bd740;hpb=8e325220e14e05e83fef46a195e7f05fe2d49433;p=ghc-hetmet.git

diff --git a/compiler/iface/BinIface.hs b/compiler/iface/BinIface.hs
index 0ffd37d..4664bf1 100644
--- a/compiler/iface/BinIface.hs
+++ b/compiler/iface/BinIface.hs
@@ -1222,10 +1222,14 @@ instance Binary IfaceRule where
 	    return (IfaceRule a1 a2 a3 a4 a5 a6 a7)
 
 instance Binary IfaceVectInfo where
-    put_ bh (IfaceVectInfo a1) = do
+    put_ bh (IfaceVectInfo a1 a2 a3) = do
 	    put_ bh a1
+	    put_ bh a2
+	    put_ bh a3
     get bh = do
 	    a1 <- get bh
-	    return (IfaceVectInfo a1)
+	    a2 <- get bh
+	    a3 <- get bh
+	    return (IfaceVectInfo a1 a2 a3)