X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Flib%2Fhbc%2FListUtil_mc.hi;h=678185effa066808ced393ae9d36095c0640c534;hp=05034a4243447154b86501fce7fcda39d9099176;hb=e0befe921f5bbfa6daba3f8ff46cdf2a2abad1da;hpb=68a1f0233996ed79824d11d946e9801473f6946c

diff --git a/ghc/lib/hbc/ListUtil_mc.hi b/ghc/lib/hbc/ListUtil_mc.hi
index 05034a4..678185e 100644
--- a/ghc/lib/hbc/ListUtil_mc.hi
+++ b/ghc/lib/hbc/ListUtil_mc.hi
@@ -1,4 +1,4 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
+{-# GHC_PRAGMA INTERFACE VERSION 6 #-}
 interface ListUtil where
 import PreludeStdIO(Maybe)
 assoc :: Eq b => (a -> c) -> c -> [(b, a)] -> b -> c
@@ -16,7 +16,7 @@ group :: Eq a => [a] -> [[a]]
 groupEq :: (a -> a -> Bool) -> [a] -> [[a]]
 	{-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
 intersection :: Eq a => [a] -> [a] -> [a]
-	{-# GHC_PRAGMA _A_ 3 _U_ 112 _N_ _S_ "LSL" _N_ _N_ #-}
+	{-# GHC_PRAGMA _A_ 1 _U_ 212 _N_ _N_ _N_ _N_ #-}
 lookup :: Eq a => [(a, b)] -> a -> Maybe b
 	{-# GHC_PRAGMA _A_ 1 _U_ 112 _N_ _N_ _N_ _N_ #-}
 mapAccuml :: (b -> a -> (b, c)) -> b -> [a] -> (b, [c])