path: root/testsuite/tests/ghci/prog002/A1.hs

module A where

data T = A Int | B Float deriving Eq

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