[project @ 1999-10-15 09:50:22 by simonmar]
[ghc-hetmet.git] / ghc / tests / deSugar / should_compile / ds048.hs
1 -- !!! newtypes with a labelled field.
2 module ShouldSucceed where
3
4 newtype Foo = Foo { x :: Int } deriving (Eq)
5
6 f :: Foo -> Foo -> Int
7 f a b = x a + x b