git.iko.soy/typeable/pandoc
on 1.8 help sign in
typeable/pandoc/tests/lhs-test.markdown
20 lines 516 B history raw
1# lhs test
3`unsplit` is an arrow that takes a pair of values and combines them to return
4a single value:
6~~~~ {.sourceCode .literate .haskell}
7unsplit :: (Arrow a) => (b -> c -> d) -> a (b, c) d
8unsplit = arr . uncurry
9 -- arr (\op (x,y) -> x `op` y)
10~~~~
12`(***)` combines two arrows into a new arrow by running the two arrows on a
13pair of values (one arrow on the first item of the pair and one arrow on the
14second item of the pair).
16 f *** g = first f >>> second g
18Block quote:
20> foo bar