[project @ 2000-11-03 16:23:37 by simonmar]
[ghc-hetmet.git] / ghc / tests / deSugar / should_compile / ds048.hs
1 -- !!! newtypes with a labelled field.
2 module ShouldCompile where
3
4 newtype Foo = Foo { x :: Int } deriving (Eq)
5
6 f :: Foo -> Foo -> Int
7 f a b = x a + x b