Commit 0f727b7f authored by Simon Peyton Jones's avatar Simon Peyton Jones

Test Trac #3219

parent 305292eb
-- Trac #3219. Lint error in GHC 6.10
module T3219 where
data T a = A{ m1 :: a } | B{ m1, m2 :: a } | C{ m2 :: a }
-- bar :: (a -> a) -> T a -> T a
bar f x@(A m) = x{m1 = f m}
-- foo :: (a -> a) -> T a -> T a
foo f x@(C m) = x{m2 = f m}
......@@ -295,6 +295,7 @@ test('T2572', normal, compile, [''])
test('T2573', normal, compile, [''])
test('T2735', normal, compile, [''])
test('T2799', normal, compile, [''])
test('T3219', normal, compile, [''])
test('T2412',
extra_clean(['T2412.hi-boot', 'T2412.o-boot',
......
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