diff options
Diffstat (limited to 'tests/lhs-test.markdown')
-rw-r--r-- | tests/lhs-test.markdown | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/tests/lhs-test.markdown b/tests/lhs-test.markdown deleted file mode 100644 index 20949b75c..000000000 --- a/tests/lhs-test.markdown +++ /dev/null @@ -1,21 +0,0 @@ -lhs test -======== - -`unsplit` is an arrow that takes a pair of values and combines them to -return a single value: - -``` {.sourceCode .literate .haskell} -unsplit :: (Arrow a) => (b -> c -> d) -> a (b, c) d -unsplit = arr . uncurry - -- arr (\op (x,y) -> x `op` y) -``` - -`(***)` combines two arrows into a new arrow by running the two arrows on a -pair of values (one arrow on the first item of the pair and one arrow on the -second item of the pair). - - f *** g = first f >>> second g - -Block quote: - -> foo bar |