[project @ 1996-01-08 20:28:12 by partain]

[ghc-hetmet.git] / ghc / compiler / tests / deSugar / ds010.hs

diff --git a/ghc/compiler/tests/deSugar/ds010.hs b/ghc/compiler/tests/deSugar/ds010.hs
new file mode 100644 (file)
index 0000000..a49c09c
--- /dev/null
+++ b/ghc/compiler/tests/deSugar/ds010.hs
@@ -0,0 +1,15 @@
+--!!! ds010 -- deeply-nested list comprehensions
+
+module Test 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"
+    ]