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

{-# LANGUAGE Arrows #-}

foo f = proc a -> if a then f -< 0 else f -< 1

bar f g = proc a ->
    if f a
        then
            f
                . g
                -<
                    a
        else
            g
                -<
                    b