fourmolu-0.4.0.0: data/examples/declaration/value/function/arrow/proc-form-do-indent-four-out.hs

{-# LANGUAGE Arrows #-}

foo x = proc (y, z) -> do
    (|
        bar
            (bindA -< y)
        |)

foo1 x = proc (y, z) -> do
    (|
        bar
            (bindA -< y)
        |) z