X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fiface%2FBinIface.hs;h=b9ad5c800e067477a375253fa9e7fa5c02c7eab9;hp=b3de3f487def005805da0c19488a47522157dee3;hb=7e95df790b34e11d7308e43dab0a7175b69b70fc;hpb=c0687066474aa4ce4912f31a5c09c1bcd673fb06

diff --git a/compiler/iface/BinIface.hs b/compiler/iface/BinIface.hs
index b3de3f4..b9ad5c8 100644
--- a/compiler/iface/BinIface.hs
+++ b/compiler/iface/BinIface.hs
@@ -1515,14 +1515,18 @@ instance Binary name => Binary (AnnTarget name) where
                   return (ModuleTarget a)
 
 instance Binary IfaceVectInfo where
-    put_ bh (IfaceVectInfo a1 a2 a3) = do
+    put_ bh (IfaceVectInfo a1 a2 a3 a4 a5) = do
 	    put_ bh a1
 	    put_ bh a2
 	    put_ bh a3
+	    put_ bh a4
+	    put_ bh a5
     get bh = do
 	    a1 <- get bh
 	    a2 <- get bh
 	    a3 <- get bh
-	    return (IfaceVectInfo a1 a2 a3)
+	    a4 <- get bh
+	    a5 <- get bh
+	    return (IfaceVectInfo a1 a2 a3 a4 a5)