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