[project @ 1996-01-08 20:28:12 by partain]
[ghc-hetmet.git] / ghc / compiler / tests / printing / Print001.stderr
1 =-=-=-=-=INTERFACE STARTS HERE=-=-=-=-= Print001
2 interface Print001 where
3 f :: Eq a => (a -> b -> c) -> a -> b -> c {-# ARITY _ = 2 #-}
4 f2 :: (Eq a, Ord a, Ix c) => (a -> b -> c) -> a -> b -> c {-# ARITY _ = 4 #-}
5 g :: Foo Int (b -> a) (b -> [(b, Double, Int)]) -> Float {-# ARITY _ = 1 #-}
6 mkFoo :: [((a -> Int) -> a) -> b] -> (a -> b, b -> b) -> () -> Foo a b c {-# ARITY _ = 3 #-}
7 data Bar a = BarNil | BarCon (Foo a a a) (Bar a)
8 data Foo a b c = MkFoo [((a -> Int) -> a) -> b] (a -> b, b -> b) ()
9 =-=-=-=-=INTERFACE STOPS  HERE=-=-=-=-=
10