path: root/testsuite/tests/ghc-regress/ghci/scripts/T4015.hs

module Test (R(..)) where  

data R = R { x :: Char, y :: Int, z :: Float }
       | S { x :: Char }
       | T { y :: Int, z:: Float }
       | W