1 files changed, 13 insertions, 0 deletions
diff --git a/testsuite/tests/deSugar/should_compile/ds009.hs b/testsuite/tests/deSugar/should_compile/ds009.hs
new file mode 100644
index 0000000000..6ebcc96adf
--- /dev/null
+++ b/testsuite/tests/deSugar/should_compile/ds009.hs
@@ -0,0 +1,13 @@
+-- !!! ds009 -- simple list comprehensions
+
+module ShouldCompile where
+
+f xs = [ x | x <- xs ]
+
+g xs ys zs = [ (x,y,z) | x <- xs, y <- ys, z <- zs, True ]
+
+h xs ys = [ [x,y] | x <- xs, y <- ys, False ]
+
+i xs = [ x | all@(x,y) <- xs, all == ([],[]) ]
+
+j xs = [ (a,b) | (a,b,c,d) <- xs ]