testsuite/tests/deSugar/should_run/dsrun001.hs


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

{-	Check that list comprehensions can be written
	in do-notation. This actually broke 2.02, with
	a pattern match failure in dsListComp!
-}

module Main where

main = putStrLn (show theList)
theList = do x <- [1..3]
             y <- [1..3]
             return (x,y)