summaryrefslogtreecommitdiff
path: root/testsuite/tests/rename/should_compile/rn047.hs
blob: f4526aa384770a2f354fababfe1b7f3447b2fdaf (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
{-# OPTIONS_GHC -fwarn-unused-matches #-}
{-# LANGUAGE ParallelListComp #-}
-- GHC 6.4 erroneously reported that the 
-- bindings for q and z were unused
--
-- Note the parallel list comprehension,
-- which was the cause of the trouble

module ShouldCompile where

t :: [Int]
t = [ q | y <- [1..10] 
        | z <- [30..40], let q = z*z]