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

{-# LANGUAGE Arrows #-}

foo f = proc a -> do
    f -< a

bazbaz f g h = proc (a, b, c) -> do
    x <-
        f b -< a
    y <-
        g b -< b
    z <-
        h
            x
            y
            -<
                ( a
                , b
                , c
                )
    returnA
        -<
            (x, y, z)