ormolu-0.0.1.0: data/examples/declaration/value/function/arrow/recursive-procs-out.hs

{-# LANGUAGE Arrows #-}

foo f g = proc (x, y) -> do
  rec a <- f y -< x
      b <-
        g x -<
          y
  bar -<
    ( a,
      b
    )
  rec p <-
        f
          p -<
          a
  rec q <-
        g
          q -<
          b