diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-12-02 22:43:42 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-12-02 22:43:42 +0000 |
| commit | d4b9307ce4a5fdc112b5bbb689cb98dcdd72e8e3 (patch) | |
| tree | 7fb6e6d4ee4c4aa0012718023888db404b854ce5 /Text | |
| parent | ebe9ac50b0560614e542ed8b11cc2c974f346c47 (diff) | |
| download | pandoc-d4b9307ce4a5fdc112b5bbb689cb98dcdd72e8e3.tar.gz | |
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
Diffstat (limited to 'Text')
| -rw-r--r-- | Text/Pandoc/Readers/LaTeX.hs | 2 | ||||
| -rw-r--r-- | Text/Pandoc/Readers/Markdown.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/Text/Pandoc/Readers/LaTeX.hs b/Text/Pandoc/Readers/LaTeX.hs index b1148e07d..537fdf377 100644 --- a/Text/Pandoc/Readers/LaTeX.hs +++ b/Text/Pandoc/Readers/LaTeX.hs @@ -207,7 +207,7 @@ lhsCodeBlock :: GenParser Char ParserState Block lhsCodeBlock = do failUnlessLHS (CodeBlock (_,_,_) cont) <- codeBlockWith "code" - return $ CodeBlock ("", ["haskell"], []) cont + return $ CodeBlock ("", ["sourceCode","haskell"], []) cont -- -- block quotes diff --git a/Text/Pandoc/Readers/Markdown.hs b/Text/Pandoc/Readers/Markdown.hs index 436ca3bd8..896f5832e 100644 --- a/Text/Pandoc/Readers/Markdown.hs +++ b/Text/Pandoc/Readers/Markdown.hs @@ -399,7 +399,7 @@ lhsCodeBlock :: GenParser Char ParserState Block lhsCodeBlock = do failUnlessLHS contents <- lhsCodeBlockBird <|> lhsCodeBlockLaTeX - return $ CodeBlock ("",["haskell"],[]) contents + return $ CodeBlock ("",["sourceCode","haskell"],[]) contents lhsCodeBlockLaTeX :: GenParser Char ParserState String lhsCodeBlockLaTeX = try $ do |