on ba64967 help sign in
12 lines 163 B history raw
1{-# LANGUAGE Arrows #-}
2foo f g x y = (|test (f -< x) (g -< y)|)
4bar f g x y =
5 (| test
6 ( f -<
7 x
8 )
9 ( g -<
10 y
11 )
12 |)