ghc/tests/deSugar/should_run/dsrun001.hs

   1 {-      Check that list comprehensions can be written
   2         in do-notation. This actually broke 2.02, with
   3         a pattern match failure in dsListComp!
   4 -}
   5
   6 module Main where
   7
   8 main = putStrLn (show theList)
   9 theList = do x <- [1..3]
  10              y <- [1..3]
  11              return (x,y)
  12