X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fiface%2FBinIface.hs;h=9ae85a2ef8c2f92f2a7442fc0bab1c04d63bdbd2;hb=bb106f283663e9c16a4c72ec9ca57109ae57a0ed;hp=a11b35157042ce8bf55c96781a06893882444f61;hpb=229aaa59fd13e69778cb1ec809d065fa25b40a43;p=ghc-hetmet.git

diff --git a/compiler/iface/BinIface.hs b/compiler/iface/BinIface.hs
index a11b351..9ae85a2 100644
--- a/compiler/iface/BinIface.hs
+++ b/compiler/iface/BinIface.hs
@@ -919,7 +919,7 @@ instance Binary IfaceDecl where
 	    put_ bh ar
 	    put_ bh as
 	    put_ bh at
-    put_ bh (IfaceClass a1 a2 a3 a4 a5 a6) = do
+    put_ bh (IfaceClass a1 a2 a3 a4 a5 a6 a7) = do
 	    putByte bh 4
 	    put_ bh a1
 	    put_ bh a2
@@ -927,6 +927,7 @@ instance Binary IfaceDecl where
 	    put_ bh a4
 	    put_ bh a5
 	    put_ bh a6
+	    put_ bh a7
     get bh = do
 	    h <- getByte bh
 	    case h of
@@ -957,7 +958,8 @@ instance Binary IfaceDecl where
 		    a4 <- get bh
 		    a5 <- get bh
 		    a6 <- get bh
-		    return (IfaceClass a1 a2 a3 a4 a5 a6)
+		    a7 <- get bh
+		    return (IfaceClass a1 a2 a3 a4 a5 a6 a7)
 
 instance Binary IfaceInst where
     put_ bh (IfaceInst cls tys dfun flag orph) = do