fourmolu-0.5.0.0: data/examples/declaration/value/function/arrow/proc-lambdas-four-out.hs

{-# LANGUAGE Arrows #-}

foo = proc a -> \f b -> a -< f b -- Foo

bar =
    proc x -> \f g h ->
        \() ->
            \(Left (x, y)) ->
                -- Tuple value
                f (g (h x)) -< y