summaryrefslogtreecommitdiff
path: root/testsuite/tests/ghc-regress/ghci/scripts/T4015.hs
blob: d2968db317ff02d6b5907f1792f8a90b7bbbe729 (plain)
1
2
3
4
5
6
7
module Test (R(..)) where  

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