testsuite/tests/rename/should_compile/T1972.hs


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 #-}

-- #1972

module Temp where

import Data.List (mapAccumL)

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