Update Trac ticket URLs to point to GitLab
[ghc.git] / testsuite / tests / typecheck / should_compile / T3219.hs
1 -- #3219. Lint error in GHC 6.10
2
3 module T3219 where
4
5 data T a = A{ m1 :: a } | B{ m1, m2 :: a } | C{ m2 :: a }
6
7 -- bar :: (a -> a) -> T a -> T a
8 bar f x@(A m) = x{m1 = f m}
9
10 -- foo :: (a -> a) -> T a -> T a
11 foo f x@(C m) = x{m2 = f m}