[project @ 2003-07-22 16:18:06 by simonmar]
[ghc-hetmet.git] / ghc / tests / ghci / prog002 / A1.hs
1 module A where
2
3 data T = A Int | B Float deriving Eq
4
5 f :: Double -> Double
6 f x = x + x