fourmolu-0.8.0.0: data/examples/declaration/value/function/list-comprehensions.hs

foo x =  [a |a<-x]

bar x y = [  (a, b)  |  a<-x, even a  , b<-y, a != b  ]

barbaz x y z w = [
    (a, b, c, d) | -- Foo
    a <-
      x, -- Bar
    b<-y,  -- Baz
    any even [a, b],
    c <- z *
         z ^ 2,     -- Bar baz
    d <-
    w
    +
    w, -- Baz bar
     all
      even [
        a, b,
        c, d
      ]
  ]

a = do
  [ c
      | c <- d ]