Test Trac #8649
[ghc.git] / testsuite / tests / ghci / scripts / T8649.script
1 data X = Y Int
2 let f (Y i) = i
3 data X = Y Int | Z String
4 f (Y 3)