From 7e8ea0ae74bcb56b3b91cc461fb7bd38468fe31b Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Fri, 3 Jul 2009 03:05:29 +0000
Subject: Fixed lhs test cases.

+ Changed Setup.hs in accord with change in '--version'
  output.
+ Changed lhs test cases in accord with change in
  the way HTML headers are written (they are now put
  in divs, and the id is put on the div rather than the
  header itself).

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1588 788f1e2b-df1e-0410-8736-df70ead52e1b
---
 tests/lhs-test.fragment.html+lhs | 96 ++++++++++++++++++++--------------------
 1 file changed, 49 insertions(+), 47 deletions(-)

(limited to 'tests/lhs-test.fragment.html+lhs')

diff --git a/tests/lhs-test.fragment.html+lhs b/tests/lhs-test.fragment.html+lhs
index 27f25eb8c..2100db251 100644
--- a/tests/lhs-test.fragment.html+lhs
+++ b/tests/lhs-test.fragment.html+lhs
@@ -1,49 +1,51 @@
-<h1 id="lhs-test"
->lhs test</h1
-><p
-><code
-  >unsplit</code
-  > is an arrow that takes a pair of values and combines them to return a single value:</p
-><pre class="sourceCode literatehaskell"
-><code
-  ><span class="Char Special"
-    >&gt;</span
-    ><span class="Function FunctionDefinition"
-    > unsplit ::</span
-    ><span class="Normal NormalText"
-    > (Arrow a) =&gt; (b -&gt; c -&gt; d) -&gt; a (b, c) d</span
-    ><br
-     /><span class="Char Special"
-    >&gt;</span
-    ><span class="Normal NormalText"
-    > unsplit = arr . </span
-    ><span class="Function"
-    >uncurry</span
-    ><span class="Normal NormalText"
-    >       </span
-    ><br
-     /><span class="Char Special"
-    >&gt;</span
-    ><span class="Normal NormalText"
-    >           </span
-    ><span class="Comment"
-    >-- arr (\op (x,y) -&gt; x `op` y) </span
-    ><br
-     /></code
-  ></pre
-><p
-><code
-  >(***)</code
-  > 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).</p
-><pre
-><code
-  >f *** g = first f &gt;&gt;&gt; second g
+<div id="lhs-test"
+><h1
+  >lhs test</h1
+  ><p
+  ><code
+    >unsplit</code
+    > is an arrow that takes a pair of values and combines them to return a single value:</p
+  ><pre class="sourceCode literatehaskell"
+  ><code
+    ><span class="Char Special"
+      >&gt;</span
+      ><span class="Function FunctionDefinition"
+      > unsplit ::</span
+      ><span class="Normal NormalText"
+      > (Arrow a) =&gt; (b -&gt; c -&gt; d) -&gt; a (b, c) d</span
+      ><br
+       /><span class="Char Special"
+      >&gt;</span
+      ><span class="Normal NormalText"
+      > unsplit = arr . </span
+      ><span class="Function"
+      >uncurry</span
+      ><span class="Normal NormalText"
+      >       </span
+      ><br
+       /><span class="Char Special"
+      >&gt;</span
+      ><span class="Normal NormalText"
+      >           </span
+      ><span class="Comment"
+      >-- arr (\op (x,y) -&gt; x `op` y) </span
+      ><br
+       /></code
+    ></pre
+  ><p
+  ><code
+    >(***)</code
+    > 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).</p
+  ><pre
+  ><code
+    >f *** g = first f &gt;&gt;&gt; second g
 </code
-  ></pre
-><p
->Block quote:</p
-><blockquote
-><p
-  >foo bar</p
-  ></blockquote
+    ></pre
+  ><p
+  >Block quote:</p
+  ><blockquote
+  ><p
+    >foo bar</p
+    ></blockquote
+  ></div
 >
-- 
cgit v1.2.3