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]
|