From c815c2feabe76d32d10161fee69d296d6736bca9 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Tue, 2 Dec 2008 22:42:08 +0000
Subject: LaTeX reader: Added parser for literate haskell code blocks.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1499 788f1e2b-df1e-0410-8736-df70ead52e1b
---
 Text/Pandoc/Readers/LaTeX.hs | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

(limited to 'Text/Pandoc/Readers')

diff --git a/Text/Pandoc/Readers/LaTeX.hs b/Text/Pandoc/Readers/LaTeX.hs
index d2dff2d5a..b1148e07d 100644
--- a/Text/Pandoc/Readers/LaTeX.hs
+++ b/Text/Pandoc/Readers/LaTeX.hs
@@ -188,9 +188,9 @@ hrule = oneOfStrings [ "\\begin{center}\\rule{3in}{0.4pt}\\end{center}\n\n",
 -- code blocks
 --
 
-codeBlock :: GenParser Char st Block
-codeBlock = choice $ map codeBlockWith ["verbatim", "Verbatim", "code"]
--- Note:  Verbatim is from fancyvrb.  code is used by literate Haskell.
+codeBlock :: GenParser Char ParserState Block
+codeBlock = codeBlockWith "verbatim" <|> codeBlockWith "Verbatim" <|> lhsCodeBlock
+-- Note:  Verbatim is from fancyvrb.
 
 codeBlockWith :: String -> GenParser Char st Block
 codeBlockWith env = try $ do
@@ -203,6 +203,12 @@ codeBlockWith env = try $ do
   let classes = if env == "code" then ["haskell"] else []
   return $ CodeBlock ("",classes,[]) (stripTrailingNewlines contents)
 
+lhsCodeBlock :: GenParser Char ParserState Block
+lhsCodeBlock = do
+  failUnlessLHS
+  (CodeBlock (_,_,_) cont) <- codeBlockWith "code"
+  return $ CodeBlock ("", ["haskell"], []) cont
+
 --
 -- block quotes
 --
-- 
cgit v1.2.3