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