From 3c07b1d9b64d0da0da32d87abe29a2db27d894fa Mon Sep 17 00:00:00 2001 From: Albert Krewinkel Date: Mon, 31 Aug 2020 21:22:03 +0200 Subject: Fix tests for skylighting 0.10 --- test/lhs-test.html | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'test/lhs-test.html') diff --git a/test/lhs-test.html b/test/lhs-test.html index 621d79163..e2db34ee4 100644 --- a/test/lhs-test.html +++ b/test/lhs-test.html @@ -84,9 +84,9 @@

lhs test

unsplit is an arrow that takes a pair of values and combines them to return a single value:

-
unsplit :: (Arrow a) => (b -> c -> d) -> a (b, c) d
-unsplit = arr . uncurry
-          -- arr (\op (x,y) -> x `op` y)
+
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).

-- cgit v1.2.3