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

diff --git a/compiler/iface/BinIface.hs b/compiler/iface/BinIface.hs
index 0ffd37d..392873b 100644
--- a/compiler/iface/BinIface.hs
+++ b/compiler/iface/BinIface.hs
@@ -34,6 +34,7 @@ import Config
 import FastMutInt
 import Outputable
 
+import Data.List
 import Data.Word
 import Data.Array
 import Data.IORef
@@ -1222,10 +1223,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)