diff options
Diffstat (limited to 'testsuite/tests/rename/should_compile/rn047.hs')
| -rw-r--r-- | testsuite/tests/rename/should_compile/rn047.hs | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/testsuite/tests/rename/should_compile/rn047.hs b/testsuite/tests/rename/should_compile/rn047.hs new file mode 100644 index 0000000000..f4526aa384 --- /dev/null +++ b/testsuite/tests/rename/should_compile/rn047.hs @@ -0,0 +1,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] |