File: proc-cases.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 (17 lines) | stat: -rw-r--r-- 311 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
{-# LANGUAGE Arrows #-}
foo f =proc a -> case  a  of Left b -> f -<b

bar f g h j
  = proc a ->
    case a of
        Left (
            (a, b),
            (c, d)
         ) -> f (a <> c) -< b <> d

        Right
          (Left a) ->
            h -< a
        Right
          (Right b) ->
            j -< b