git.iko.soy/ormolu
on d82d607 help sign in
ormolu/data/examples/declaration/value/function/arrow/proc-ifs.hs
14 lines 190 B history raw
1{-# LANGUAGE Arrows #-}
3foo f = proc a -> if a then f-<0 else f-<1
5bar f g = proc a ->
6 if
7 f a
8 then
9 f
10 . g -< a
11 else
12 g
13 -<
14 b