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