File: recursive-procs-out.hs

package info (click to toggle)
haskell-ormolu 0.1.2.0-1
  • links: PTS
  • area: main
  • in suites: bullseye
  • size: 3,392 kB
  • sloc: haskell: 11,134; makefile: 7
file content (23 lines) | stat: -rw-r--r-- 285 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
{-# LANGUAGE Arrows #-}

foo f g = proc (x, y) -> do
  rec a <- f y -< x
      b <-
        g x
          -<
            y
  bar
    -<
      ( a,
        b
      )
  rec p <-
        f
          p
          -<
            a
  rec q <-
        g
          q
          -<
            b