path: root/testsuite/tests/ghc-regress/ghci/prog001/D2.hs

module D where

data T = A Int | B Float deriving Eq

f x = x + 1