fourmolu-0.0.6.0: data/examples/declaration/value/function/arrow/proc-ifs.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