X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fiface%2FBinIface.hs;h=631a28660e8374d1df38fd7ce6e9552a4906992d;hp=a31988a0439dc80c6a4f4c3f1eefa8d572c0d9f2;hb=ee2dd59cf1c96437696b9ec39b35dd1beea259a1;hpb=39dd1943735841b6cc62c91134189371ba571f38

diff --git a/compiler/iface/BinIface.hs b/compiler/iface/BinIface.hs
index a31988a..631a286 100644
--- a/compiler/iface/BinIface.hs
+++ b/compiler/iface/BinIface.hs
@@ -562,11 +562,12 @@ instance Binary IfaceBndr where
 instance Binary Kind where
     put_ bh LiftedTypeKind   = putByte bh 0
     put_ bh UnliftedTypeKind = putByte bh 1
-    put_ bh OpenTypeKind     = putByte bh 2
-    put_ bh ArgTypeKind      = putByte bh 3
-    put_ bh UbxTupleKind     = putByte bh 4
+    put_ bh UnboxedTypeKind  = putByte bh 2
+    put_ bh OpenTypeKind     = putByte bh 3
+    put_ bh ArgTypeKind      = putByte bh 4
+    put_ bh UbxTupleKind     = putByte bh 5
     put_ bh (FunKind k1 k2)  = do 
-	    putByte bh 5
+	    putByte bh 6
 	    put_ bh k1
 	    put_ bh k2
     put_ bh (KindVar kv) = pprPanic "BinIface.put_: kind var" (ppr kv)
@@ -576,9 +577,10 @@ instance Binary Kind where
 	    case h of
 	      0 -> return LiftedTypeKind 
 	      1 -> return UnliftedTypeKind
-	      2 -> return OpenTypeKind
-	      3 -> return ArgTypeKind
-	      4 -> return UbxTupleKind
+	      2 -> return UnboxedTypeKind
+	      3 -> return OpenTypeKind
+	      4 -> return ArgTypeKind
+	      5 -> return UbxTupleKind
 	      _ -> do k1 <- get bh
 		      k2 <- get bh
 		      return (FunKind k1 k2)
@@ -864,8 +866,6 @@ instance Binary IfaceNote where
     put_ bh (IfaceCoerce ab) = do
 	    putByte bh 1
 	    put_ bh ab
-    put_ bh IfaceInlineCall = do
-	    putByte bh 2
     put_ bh IfaceInlineMe = do
 	    putByte bh 3
     put_ bh (IfaceCoreNote s) = do
@@ -878,7 +878,6 @@ instance Binary IfaceNote where
 		      return (IfaceSCC aa)
 	      1 -> do ab <- get bh
 		      return (IfaceCoerce ab)
-	      2 -> do return IfaceInlineCall
 	      3 -> do return IfaceInlineMe
               _ -> do ac <- get bh
                       return (IfaceCoreNote ac)