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

tests/lhs-test.fragment.html+lhs

@@ -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"

tests/lhs-test.html

@@ -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"

tests/lhs-test.html+lhs

@@ -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"

tests/lhs-test.latex

@@ -12,17 +12,17 @@
 
 \section{lhs test}
 
-\verb!unsplit! is an arrow that takes a pair of values and combines
+\verb!unsplit! is an arrow that takes a pair of values and combines them to
-them to return a single value:
+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
+\verb!(***)! combines two arrows into a new arrow by running the two arrows on
-two arrows on a pair of values (one arrow on the first item of the
+a pair of values (one arrow on the first item of the pair and one arrow on the
-pair and one arrow on the second item of the pair).
+second item of the pair).
 
 \begin{verbatim}
 f *** g = first f >>> second g

tests/lhs-test.latex+lhs

@@ -14,17 +14,17 @@
 
 \section{lhs test}
 
-\verb!unsplit! is an arrow that takes a pair of values and combines
+\verb!unsplit! is an arrow that takes a pair of values and combines them to
-them to return a single value:
+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
+\verb!(***)! combines two arrows into a new arrow by running the two arrows on
-two arrows on a pair of values (one arrow on the first item of the
+a pair of values (one arrow on the first item of the pair and one arrow on the
-pair and one arrow on the second item of the pair).
+second item of the pair).
 
 \begin{verbatim}
 f *** g = first f >>> second g

tests/lhs-test.markdown+lhs

@@ -1,19 +1,20 @@
 lhs test
 ========
 
-`unsplit` is an arrow that takes a pair of values and combines them
+`unsplit` is an arrow that takes a pair of values and combines them to return
-to return a single value:
+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
+`(***)` combines two arrows into a new arrow by running the two arrows on a
-arrows on a pair of values (one arrow on the first item of the pair
+pair of values (one arrow on the first item of the pair and one arrow on the
-and one arrow on the second item of the pair).
+second item of the pair).
 
     f *** g = first f >>> second g
 
 Block quote:
 
  > foo bar
+

tests/lhs-test.rst

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

tests/lhs-test.rst+lhs

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