summaryrefslogtreecommitdiff
path: root/testsuite/tests/rename/should_compile/rn064.hs
blob: 658d87b3482f3ef9888ad1176d3029e90a2dd85f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

{-# OPTIONS_GHC -Wall #-}

module Foo where

-- We should complain that the first r shadows the second one, and give
-- the right locations for the two of them. (trac #2137)

z :: a
z = r
    where
        _a = 'a'
        _f r = r
        _b = 'b'
        r = undefined
        _c = 'c'