From 39f6af5de4f4059239fbeda4095d8f92b98912d3 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Sat, 21 Nov 2009 04:40:59 +0000
Subject: Modified html+lhs output to use 'haskell' highlighter.

The bird tracks are added in the highlighting module.
This makes sense, because the kate's haskell highlighter
is much better than the literateHaskell highlighter.

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

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

diff --git a/tests/lhs-test.html+lhs b/tests/lhs-test.html+lhs
index d57ffc652..2c6cc2aa7 100644
--- a/tests/lhs-test.html+lhs
+++ b/tests/lhs-test.html+lhs
@@ -36,28 +36,28 @@ pre.sourceCode span.Error { color: red; font-weight: bold; }
       ><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"
+      ><pre class="sourceCode haskell"
       ><code
-	><span class="Char Special"
-	  >&gt;</span
+	><span class="Special"
+	  >&gt; </span
 	  ><span class="Function FunctionDefinition"
-	  > unsplit ::</span
+	  >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="Special"
+	  >&gt; </span
 	  ><span class="Normal NormalText"
-	  > unsplit = arr . </span
+	  >unsplit = arr . </span
 	  ><span class="Function"
 	  >uncurry</span
 	  ><span class="Normal NormalText"
 	  >       </span
 	  ><br
-	   /><span class="Char Special"
-	  >&gt;</span
+	   /><span class="Special"
+	  >&gt; </span
 	  ><span class="Normal NormalText"
-	  >           </span
+	  >          </span
 	  ><span class="Comment"
 	  >-- arr (\op (x,y) -&gt; x `op` y) </span
 	  ><br
-- 
cgit v1.2.3