ghc/compiler/tests/deSugar/ds010.hs

   1 --!!! ds010 -- deeply-nested list comprehensions
   2
   3 module Test where
   4
   5 z = [ (a,b,c,d,e,f,g,h,i,j) | a <- "12",
   6                               b <- "12",
   7                               c <- "12",
   8                               d <- "12",
   9                               e <- "12",
  10                               f <- "12",
  11                               g <- "12",
  12                               h <- "12",
  13                               i <- "12",
  14                               j <- "12"
  15     ]