haskell-src-exts-1.15.0.1: tests/examples/ArrowLayout.hs

{-# LANGUAGE Arrows #-}
module ArrowLayout where

exp = proc () -> do
  rec let e = 1 + i
      i <- integral -< e
  returnA -< e