Update Trac ticket URLs to point to GitLab
[ghc.git] / testsuite / tests / rename / should_compile / T3262.hs
1 {-# OPTIONS -fwarn-name-shadowing #-}
2
3 -- #3262: report shadowing in g but not f
4
5 module T3262 where
6
7 f x = let _ignored = 10 in
8 let _ignored = 20 in
9 x + _ignored
10
11 g x = let not_ignored = 10 in
12 let not_ignored = 20 in
13 x + not_ignored
14
15 mf x = do let _ignored = 10
16 let _ignored = 20
17 return (x + _ignored)
18
19 mg x = do let not_ignored = 10
20 let not_ignored = 20
21 return (x + not_ignored)