haskell-src-exts-1.14.0: Test/examples/ArrowLayout.hs

{-# LANGUAGE Arrows #-}
module ArrowLayout where

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