fourmolu-0.9.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)