blob: b56226c84616d3d6716c09c83d0ed18731caea1d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{-# OPTIONS -fwarn-name-shadowing #-}
-- #3262: report shadowing in g but not f
module T3262 where
f x = let _ignored = 10 in
let _ignored = 20 in
x + _ignored
g x = let not_ignored = 10 in
let not_ignored = 20 in
x + not_ignored
mf x = do let _ignored = 10
let _ignored = 20
return (x + _ignored)
mg x = do let not_ignored = 10
let not_ignored = 20
return (x + not_ignored)
|