path: root/testsuite/tests/typecheck/should_run/mc17.hs

{-# LANGUAGE MonadComprehensions, ParallelListComp #-}

-- !!! Parallel list comprehensions

module Main where

f xs = [ (x,y) | x <- xs, x>3 | y <- xs ]

main = print (f [0..10])