on 397fc55 help sign in
14 lines 168 B history raw
1{-# LANGUAGE Arrows #-}
3foo f g x y = (| test (f -< x) (g -< y) |)
5bar f g x y =
6 (|
7 test
8 ( f -<
9 x
10 )
11 ( g -<
12 y
13 )
14 |)