LaTeX and Markdown readers: Add sourceCode class to haskell code.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1510 788f1e2b-df1e-0410-8736-df70ead52e1b
commitd4b9307ce4a5fdc112b5bbb689cb98dcdd72e8e3
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
dateTue 2 Dec 2008, 22:43 (18 years ago)
parentebe9ac5
Text/Pandoc/Readers/LaTeX.hs+1−1
@@ -207,7 +207,7 @@ lhsCodeBlock :: GenParser Char ParserState Block
207207lhsCodeBlock = do
208208 failUnlessLHS
209209 (CodeBlock (_,_,_) cont) <- codeBlockWith "code"
210− return $ CodeBlock ("", ["haskell"], []) cont
210+ return $ CodeBlock ("", ["sourceCode","haskell"], []) cont
211211
212212--
213213-- block quotes
Text/Pandoc/Readers/Markdown.hs+1−1
@@ -399,7 +399,7 @@ lhsCodeBlock :: GenParser Char ParserState Block
399399lhsCodeBlock = do
400400 failUnlessLHS
401401 contents <- lhsCodeBlockBird <|> lhsCodeBlockLaTeX
402− return $ CodeBlock ("",["haskell"],[]) contents
402+ return $ CodeBlock ("",["sourceCode","haskell"],[]) contents
403403
404404lhsCodeBlockLaTeX :: GenParser Char ParserState String
405405lhsCodeBlockLaTeX = try $ do