summaryrefslogtreecommitdiff
path: root/tests/lhs-test.rst
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2013-01-26 16:09:41 -0800
committerJohn MacFarlane <fiddlosopher@gmail.com>2013-01-26 16:12:11 -0800
commit9d549ab683ba4d98a295dc156ea4b81f57f383a7 (patch)
tree2a234c086010fe2beb6594b303b9c905e55feb72 /tests/lhs-test.rst
parent2f50406c7f5cd34a7165f238cdeaceb53d32ed48 (diff)
RST writer: Use `.. code:: language` for code blocks with language.
Closes #721. Also fixed whitespace in lhs tests.
Diffstat (limited to 'tests/lhs-test.rst')
-rw-r--r--tests/lhs-test.rst6
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/lhs-test.rst b/tests/lhs-test.rst
index 37ad099af..3de2d9ff6 100644
--- a/tests/lhs-test.rst
+++ b/tests/lhs-test.rst
@@ -4,11 +4,11 @@ lhs test
``unsplit`` is an arrow that takes a pair of values and combines them to
return a single value:
-::
+.. code:: haskell
unsplit :: (Arrow a) => (b -> c -> d) -> a (b, c) d
- unsplit = arr . uncurry
- -- arr (\op (x,y) -> x `op` y)
+ 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