ghc-exactprint-1.1.0: tests/examples/ghc92/proc-lets-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)