git.iko.soy/ormolu
on d82d607 help sign in
ormolu/data/examples/declaration/value/function/arrow/recursive-procs.hs
18 lines 217 B history raw
1{-# LANGUAGE Arrows #-}
3foo f g = proc (x, y) -> do
4 rec
5 a <- f y -< x
6 b
7 <-
8 g x
9 -<
10 y
11 bar -< (
12 a,
13 b
14 )
15 rec p <- f
16 p -< a
17 rec q <- g
18 q-< b