testsuite/tests/ghc-regress/rename/should_compile/T3943.hs


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