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

{-# LANGUAGE Arrows #-}

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

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