summaryrefslogtreecommitdiff
path: root/testsuite/tests/rename/should_compile/T3943.hs
blob: efbeb295bef047b0c2e46f49017c193b4113ac1c (plain)
1
2
3
4
5
6
7
8
9
10
{-# OPTIONS_GHC -Wall #-}
{-# LANGUAGE ViewPatterns #-}

module T3943 where

-- Note that 'r' is used, in the view pattern
-- The bug was that 'r' was reported unused

test :: ([a], [a]) -> [a]
test x = let (r,(r++) -> rs) = x in rs