LHS test changes for new wrapping & highlighting-kate version.

This commit is contained in:
John MacFarlane 2011-01-06 21:04:57 -08:00
parent c4c336460b
commit 71bedab81c
8 changed files with 69 additions and 34 deletions

View file

@ -6,9 +6,21 @@
> is an arrow that takes a pair of values and combines them to return a single value:</p
><pre class="sourceCode haskell"
><code
>&gt; unsplit :: (<span class="dt"
>&gt; <span class="ot"
>unsplit </span
><span class="ot"
>::</span
> (<span class="dt"
>Arrow</span
> a) =&gt; (b -&gt; c -&gt; d) -&gt; a (b, c) d<br
> a) <span class="ot"
>=&gt;</span
> (b <span class="ot"
>-&gt;</span
> c <span class="ot"
>-&gt;</span
> d) <span class="ot"
>-&gt;</span
> a (b, c) d<br
/>&gt; unsplit <span class="fu"
>=</span
> arr <span class="fu"
@ -36,4 +48,4 @@
><p
>foo bar</p
></blockquote
>
>

View file

@ -33,9 +33,21 @@ pre.sourceCode span.er { color: red; font-weight: bold; }
> is an arrow that takes a pair of values and combines them to return a single value:</p
><pre class="sourceCode haskell"
><code
>unsplit :: (<span class="dt"
><span class="ot"
>unsplit </span
><span class="ot"
>::</span
> (<span class="dt"
>Arrow</span
> a) =&gt; (b -&gt; c -&gt; d) -&gt; a (b, c) d<br
> a) <span class="ot"
>=&gt;</span
> (b <span class="ot"
>-&gt;</span
> c <span class="ot"
>-&gt;</span
> d) <span class="ot"
>-&gt;</span
> a (b, c) d<br
/>unsplit <span class="fu"
>=</span
> arr <span class="fu"

View file

@ -33,9 +33,21 @@ pre.sourceCode span.er { color: red; font-weight: bold; }
> is an arrow that takes a pair of values and combines them to return a single value:</p
><pre class="sourceCode haskell"
><code
>&gt; unsplit :: (<span class="dt"
>&gt; <span class="ot"
>unsplit </span
><span class="ot"
>::</span
> (<span class="dt"
>Arrow</span
> a) =&gt; (b -&gt; c -&gt; d) -&gt; a (b, c) d<br
> a) <span class="ot"
>=&gt;</span
> (b <span class="ot"
>-&gt;</span
> c <span class="ot"
>-&gt;</span
> d) <span class="ot"
>-&gt;</span
> a (b, c) d<br
/>&gt; unsplit <span class="fu"
>=</span
> arr <span class="fu"

View file

@ -12,17 +12,17 @@
\section{lhs test}
\verb!unsplit! is an arrow that takes a pair of values and combines
them to return a single value:
\verb!unsplit! is an arrow that takes a pair of values and combines them to
return a single value:
\begin{verbatim}
unsplit :: (Arrow a) => (b -> c -> d) -> a (b, c) d
unsplit = arr . uncurry
-- arr (\op (x,y) -> x `op` y)
\end{verbatim}
\verb!(***)! 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).
\verb!(***)! 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).
\begin{verbatim}
f *** g = first f >>> second g

View file

@ -14,17 +14,17 @@
\section{lhs test}
\verb!unsplit! is an arrow that takes a pair of values and combines
them to return a single value:
\verb!unsplit! is an arrow that takes a pair of values and combines them to
return a single value:
\begin{code}
unsplit :: (Arrow a) => (b -> c -> d) -> a (b, c) d
unsplit = arr . uncurry
-- arr (\op (x,y) -> x `op` y)
\end{code}
\verb!(***)! 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).
\verb!(***)! 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).
\begin{verbatim}
f *** g = first f >>> second g

View file

@ -1,19 +1,20 @@
lhs test
========
`unsplit` is an arrow that takes a pair of values and combines them
to return a single value:
`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)
`(***)` 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).
`(***)` 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

View file

@ -1,8 +1,8 @@
lhs test
========
``unsplit`` is an arrow that takes a pair of values and combines
them to return a single value:
``unsplit`` is an arrow that takes a pair of values and combines them to
return a single value:
::
@ -10,9 +10,9 @@ them to return a single value:
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).
``(***)`` 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).
::
@ -21,4 +21,3 @@ and one arrow on the second item of the pair).
Block quote:
foo bar

View file

@ -1,16 +1,16 @@
lhs test
========
``unsplit`` is an arrow that takes a pair of values and combines
them to return a single value:
``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)
``(***)`` 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).
``(***)`` 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).
::
@ -19,4 +19,3 @@ and one arrow on the second item of the pair).
Block quote:
foo bar