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

{-# LANGUAGE Arrows #-}

foo f = proc a -> let b = a in f -< b

bar f g = proc a ->
    let h =
            f
                . g a
        j =
            g
                . h
     in id -< (h, j)