Commit e0e56905 authored by simonpj's avatar simonpj
Browse files

Update tests for Trac #1972

parent 9254d564
{-# 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
\ No newline at end of file
T1972.hs:12:2:
Warning: This binding for `name' shadows the existing binding
defined at T1972.hs:9:18
In the definition of `h'
T1972.hs:14:2:
Warning: This binding for `mapAccumL' shadows the existing bindings
defined at T1972.hs:16:0
imported from Data.List at T1972.hs:7:0-15
In the definition of `f'
T1972.hs:20:9: Warning: Defined but not used: `c'
......@@ -70,6 +70,7 @@ test('rn059', normal, multimod_compile, ['rn059', '-v0'])
clean(['Rn059_A.hi', 'Rn059_A.o', 'Rn059_B.hi', 'Rn059_B.o'])
test('rn060', normal, compile, [''])
test('rn061', normal, compile, [''])
test('T1972', normal, compile, [''])
test('timing001', normal, compile, [''])
test('timing002', normal, compile, [''])
......
rn039.hs:6:15:
Warning: This binding for `-' shadows an existing binding
In the binding group for: -
Warning: This binding for `-' shadows the existing binding
imported from Prelude
In the binding group for: -
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment