summaryrefslogtreecommitdiff
path: root/testsuite/tests/rename/should_compile/T1972.hs
blob: 09dd8acaf45ef919cddeddab27a1e76dc2d79754 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
{-# OPTIONS_GHC -fwarn-name-shadowing -fwarn-unused-binds #-}

-- Trac #1972

module Temp where

import Data.List

data Data = Data {name :: String}

h :: a -> a
h name = name

f mapAccumL x = x

mapAccumL y = y

test x = a+b 
  where
    (a,b,c) = x