[ghc-hetmet.git] / ghc / tests / ghci / prog002 / A1.hs

module A where

data T = A Int | B Float deriving Eq

f :: Double -> Double
f x = x + x