1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface ListUtil where
3 import PreludeStdIO(Maybe)
4 assoc :: Eq b => (a -> c) -> c -> [(b, a)] -> b -> c
5 {-# GHC_PRAGMA _A_ 1 _U_ 12212 _N_ _N_ _N_ _N_ #-}
6 assocDef :: Eq a => [(a, b)] -> b -> a -> b
7 {-# GHC_PRAGMA _A_ 1 _U_ 1122 _N_ _N_ _N_ _N_ #-}
8 chopList :: ([a] -> (b, [a])) -> [a] -> [b]
9 {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
10 concatMap :: (a -> [b]) -> [a] -> [b]
11 {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}
12 elemEq :: (a -> a -> Bool) -> a -> [a] -> Bool
13 {-# GHC_PRAGMA _A_ 3 _U_ 221 _N_ _S_ "LLS" _N_ _N_ #-}
14 group :: Eq a => [a] -> [[a]]
15 {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _N_ _F_ _IF_ARGS_ 1 2 CX 6 _/\_ u0 -> \ (u1 :: {{Eq u0}}) (u2 :: [u0]) -> let {(u5 :: u0 -> u0 -> Bool) = case u1 of { _ALG_ _TUP_2 (u3 :: u0 -> u0 -> Bool) (u4 :: u0 -> u0 -> Bool) -> u3; _NO_DEFLT_ }} in _APP_ _TYAPP_ _ORIG_ ListUtil groupEq { u0 } [ u5, u2 ] _N_ #-}
16 groupEq :: (a -> a -> Bool) -> [a] -> [[a]]
17 {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
18 intersection :: Eq a => [a] -> [a] -> [a]
19 {-# GHC_PRAGMA _A_ 3 _U_ 112 _N_ _S_ "LSL" _N_ _N_ #-}
20 lookup :: Eq a => [(a, b)] -> a -> Maybe b
21 {-# GHC_PRAGMA _A_ 1 _U_ 112 _N_ _N_ _N_ _N_ #-}
22 mapAccuml :: (b -> a -> (b, c)) -> b -> [a] -> (b, [c])
23 {-# GHC_PRAGMA _A_ 3 _U_ 221 _N_ _S_ "LLS" _N_ _N_ #-}
24 nubEq :: (a -> a -> Bool) -> [a] -> [a]
25 {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}
26 readListLazily :: Text a => [Char] -> [a]
27 {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "U(SLLL)S" {_A_ 5 _U_ 20002 _N_ _N_ _N_ _N_} _N_ _N_ #-}
28 rept :: Integral a => a -> b -> [b]
29 {-# GHC_PRAGMA _A_ 3 _U_ 122 _N_ _N_ _N_ _N_ #-}
31 {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "S" _N_ _N_ #-}
32 unfoldr :: (a -> (b, a)) -> (a -> Bool) -> a -> [b]
33 {-# GHC_PRAGMA _A_ 3 _U_ 222 _N_ _S_ "LSL" _N_ _N_ #-}
34 union :: Eq a => [a] -> [a] -> [a]
35 {-# GHC_PRAGMA _A_ 3 _U_ 122 _N_ _S_ "LSL" _N_ _N_ #-}