Update Trac ticket URLs to point to GitLab
[ghc.git] / testsuite / tests / rename / should_compile / T1972.hs
1 {-# OPTIONS_GHC -fwarn-name-shadowing -fwarn-unused-binds #-}
2
3 -- #1972
4
5 module Temp where
6
7 import Data.List
8
9 data Data = Data {name :: String}
10
11 h :: a -> a
12 h name = name
13
14 f mapAccumL x = x
15
16 mapAccumL y = y
17
18 test x = a+b
19 where
20 (a,b,c) = x