X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fghc%2FListSetOps_p.hi;fp=ghc%2Flib%2Fghc%2FListSetOps_p.hi;h=f2c2986660cc72865a5d50105329e6f3763006cd;hb=e0befe921f5bbfa6daba3f8ff46cdf2a2abad1da;hp=0b0224f84b28c7d42bad999933ddf6853a5e638c;hpb=68a1f0233996ed79824d11d946e9801473f6946c;p=ghc-hetmet.git diff --git a/ghc/lib/ghc/ListSetOps_p.hi b/ghc/lib/ghc/ListSetOps_p.hi index 0b0224f..f2c2986 100644 --- a/ghc/lib/ghc/ListSetOps_p.hi +++ b/ghc/lib/ghc/ListSetOps_p.hi @@ -1,13 +1,13 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface ListSetOps where disjointLists :: Eq a => [a] -> [a] -> Bool - {-# GHC_PRAGMA _A_ 1 _U_ 112 _N_ _N_ _N_ _N_ #-} + {-# GHC_PRAGMA _A_ 1 _U_ 212 _N_ _N_ _N_ _N_ #-} intersectLists :: Eq a => [a] -> [a] -> [a] - {-# GHC_PRAGMA _A_ 1 _U_ 112 _N_ _N_ _N_ _N_ #-} + {-# GHC_PRAGMA _A_ 1 _U_ 212 _N_ _N_ _N_ _N_ #-} intersectingLists :: Eq a => [a] -> [a] -> Bool - {-# GHC_PRAGMA _A_ 1 _U_ 112 _N_ _N_ _N_ _N_ #-} + {-# GHC_PRAGMA _A_ 1 _U_ 212 _N_ _N_ _N_ _N_ #-} minusList :: 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_ #-} unionLists :: Eq a => [a] -> [a] -> [a] - {-# GHC_PRAGMA _A_ 1 _U_ 112 _N_ _N_ _N_ _N_ #-} + {-# GHC_PRAGMA _A_ 1 _U_ 212 _N_ _N_ _N_ _N_ #-}