fourmolu-0.4.0.0: data/examples/declaration/value/function/arrow/proc-applications2.hs

{-# LANGUAGE Arrows #-}

t = proc ys ->
  (| f (\y -> returnA -< y) |) ys

g x = proc (y, z) ->
  ( case compare x y of
      LT -> \a -> returnA -< x + a
      EQ -> \b -> returnA -< y + z + b
      GT -> \c -> returnA -< z + x
  ) 1