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

{-# LANGUAGE Arrows #-}

foo x = proc a -> a -< x

foolr x = proc a -> x >- a

bar f x =
    proc
        ( y
            , z
            , w
            )
    ->
        f -- The value
            -<
                ( x -- Foo
                , w -- Bar
                , z -- Baz
                )

baz x = proc a -> a -<< x

bazlr x = proc a -> x >>- a