testsuite/tests/ghc-regress/rename/should_compile/rn064.hs


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'