ghc-exactprint-1.14.3.0: tests/examples/transform/LambdaRename.hs.expected

{-# LANGUAGE Arrows #-}
module LambdaRename where

import Control.Arrow

f :: IO Int
f = return 1 `l` \y ->
  do
    return y

g :: Arrow k => k Int Int
g = proc x -> (returnA -< x) `l` \y ->
  do
    returnA -< y