git.iko.soy/ormolu
on d82d607 help sign in
ormolu/data/examples/declaration/value/function/arrow/proc-cases.hs
17 lines 311 B history raw
1{-# LANGUAGE Arrows #-}
2foo f =proc a -> case a of Left b -> f -<b
4bar f g h j
5 = proc a ->
6 case a of
7 Left (
8 (a, b),
9 (c, d)
10 ) -> f (a <> c) -< b <> d
12 Right
13 (Left a) ->
14 h -< a
15 Right
16 (Right b) ->
17 j -< b