fourmolu-0.16.2.0: data/examples/declaration/value/function/arrow/proc-parentheses-four-out.hs

{-# LANGUAGE Arrows #-}

foo f = proc a -> (f -< a)

bar f g = proc a ->
    ( ( (f)
            (g)
      )
        -<
            ( ( ( ( ( ( g
                            a
                      )
                    )
                  )
                )
              )
            )
    )