diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2013-01-26 16:09:41 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-01-26 16:12:11 -0800 |
| commit | 9d549ab683ba4d98a295dc156ea4b81f57f383a7 (patch) | |
| tree | 2a234c086010fe2beb6594b303b9c905e55feb72 /tests/lhs-test.native | |
| parent | 2f50406c7f5cd34a7165f238cdeaceb53d32ed48 (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.native')
| -rw-r--r-- | tests/lhs-test.native | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/lhs-test.native b/tests/lhs-test.native index dc6c0588e..3a22d1f8a 100644 --- a/tests/lhs-test.native +++ b/tests/lhs-test.native @@ -1,6 +1,6 @@ [Header 1 ("",[],[]) [Str "lhs",Space,Str "test"] ,Para [Code ("",[],[]) "unsplit",Space,Str "is",Space,Str "an",Space,Str "arrow",Space,Str "that",Space,Str "takes",Space,Str "a",Space,Str "pair",Space,Str "of",Space,Str "values",Space,Str "and",Space,Str "combines",Space,Str "them",Space,Str "to",Space,Str "return",Space,Str "a",Space,Str "single",Space,Str "value:"] -,CodeBlock ("",["sourceCode","literate","haskell"],[]) "unsplit :: (Arrow a) => (b -> c -> d) -> a (b, c) d\nunsplit = arr . uncurry \n -- arr (\\op (x,y) -> x `op` y) " +,CodeBlock ("",["sourceCode","literate","haskell"],[]) "unsplit :: (Arrow a) => (b -> c -> d) -> a (b, c) d\nunsplit = arr . uncurry\n -- arr (\\op (x,y) -> x `op` y)" ,Para [Code ("",[],[]) "(***)",Space,Str "combines",Space,Str "two",Space,Str "arrows",Space,Str "into",Space,Str "a",Space,Str "new",Space,Str "arrow",Space,Str "by",Space,Str "running",Space,Str "the",Space,Str "two",Space,Str "arrows",Space,Str "on",Space,Str "a",Space,Str "pair",Space,Str "of",Space,Str "values",Space,Str "(one",Space,Str "arrow",Space,Str "on",Space,Str "the",Space,Str "first",Space,Str "item",Space,Str "of",Space,Str "the",Space,Str "pair",Space,Str "and",Space,Str "one",Space,Str "arrow",Space,Str "on",Space,Str "the",Space,Str "second",Space,Str "item",Space,Str "of",Space,Str "the",Space,Str "pair)."] ,CodeBlock ("",[],[]) "f *** g = first f >>> second g" ,Para [Str "Block",Space,Str "quote:"] |