Commit b8d3178d authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Test Trac #4015

parent ed0350e3
module Test (R(..)) where
data R = R { x :: Char, y :: Int, z :: Float }
| S { x :: Char }
| T { y :: Int, z:: Float }
| W
:l T4015
:browse
:i R
:i S
:i T
:i W
:i x
:i y
:i z
data R
= R {x :: Char, y :: Int, z :: Float}
| S {x :: Char}
| T {y :: Int, z :: Float}
| W
data R
= R {x :: Char, y :: Int, z :: Float}
| S {x :: Char}
| T {y :: Int, z :: Float}
| W
-- Defined at T4015.hs:3:6
data R = ... | S {...} | ... -- Defined at T4015.hs:4:10
data R = ... | T {...} | ... -- Defined at T4015.hs:5:10
data R = ... | W -- Defined at T4015.hs:6:10
data R = R {x :: Char, ...} | S {x :: Char} | ...
-- Defined at T4015.hs:3:14
data R = R {..., y :: Int, ...} | ... | T {y :: Int, ...} | ...
-- Defined at T4015.hs:3:25
data R = R {..., z :: Float} | ... | T {..., z :: Float} | ...
-- Defined at T4015.hs:3:35
......@@ -63,3 +63,4 @@ test('T789', normal, ghci_script, ['T789.script'])
test('T3263', normal, ghci_script, ['T3263.script'])
test('4051', normal, ghci_script, ['4051.script'])
test('T4087', normal, ghci_script, ['T4087.script'])
test('T4015', normal, ghci_script, ['T4015.script'])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment