ghc/compiler/tests/deSugar/ds009.hs

   1 --!!! ds009 -- simple list comprehensions
   2
   3 module SimpleListComp where
   4
   5 f xs = [ x | x <- xs ]
   6
   7 g xs ys zs = [ (x,y,z) | x <- xs, y <- ys, z <- zs, True ]
   8
   9 h xs ys = [ [x,y] | x <- xs, y <- ys, False ]
  10
  11 i xs = [ x | all@(x,y) <- xs, all == ([],[]) ]
  12
  13 j xs = [ (a,b) | (a,b,c,d) <- xs ]