testsuite/tests/deSugar/should_compile/ds010.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

-- !!! ds010 -- deeply-nested list comprehensions

module ShouldCompile where

z = [ (a,b,c,d,e,f,g,h,i,j) | a <- "12",
			      b <- "12",
			      c <- "12",
			      d <- "12",
			      e <- "12",
			      f <- "12",
			      g <- "12",
			      h <- "12",
			      i <- "12",
			      j <- "12"
    ]