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

{-# LANGUAGE Arrows #-}

foo x = proc a -> a -< x

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

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