1 2 3 4 5 6 7 8 9 10
{-# LANGUAGE TransformListComp #-} {-# LANGUAGE Arrows #-} module ShouldFail where one = [() | then ()] two = do three = proc () -> do