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