diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2006-12-17 18:41:26 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2006-12-17 18:41:26 +0000 |
commit | 75dbe3248e1eb4eb89d3860acdfcea5bfe54525c (patch) | |
tree | d182a0845517a97687f3964d6c1d69d43e3083b0 /src/Text/Pandoc/Readers | |
parent | 7c319e55ff641b57688297c5e67169ec316235b1 (diff) | |
download | pandoc-75dbe3248e1eb4eb89d3860acdfcea5bfe54525c.tar.gz |
Removed a / in a comment that was causing haddock to fail.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@213 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc/Readers')
-rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index 3ab598bac..b31f98ff7 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -48,17 +48,17 @@ bracketedText openB closeB = try (do char closeB return ([openB] ++ (concat result) ++ [closeB])) --- | Returns an option or argument of a LaTeX command +-- | Returns an option or argument of a LaTeX command. optOrArg = choice [ (bracketedText '{' '}'), (bracketedText '[' ']') ] --- | True if the string begins with '{' +-- | True if the string begins with '{'. isArg ('{':rest) = True isArg other = False --- | Returns list of options and arguments of a LaTeX command +-- | Returns list of options and arguments of a LaTeX command. commandArgs = many optOrArg --- | Parses LaTeX command, returns (name, star, list of options/arguments). +-- | Parses LaTeX command, returns (name, star, list of options or arguments). command = try (do char '\\' name <- many1 alphaNum @@ -102,7 +102,7 @@ anyEnvironment = try (do -- parsing documents -- --- | Process LaTeX preamble, extracting metadata +-- | Process LaTeX preamble, extracting metadata. processLaTeXPreamble = do manyTill (choice [bibliographic, comment, unknownCommand, nullBlock]) (try (string "\\begin{document}")) spaces @@ -303,7 +303,7 @@ specialEnvironment = do -- these are always parsed as raw "picture", "table", "verse", "theorem"])) rawLaTeXEnvironment --- | Parse any LaTeX environment and return a Para block containing +-- | Parse any LaTeX environment and return a Para block containing -- the whole literal environment as raw TeX. rawLaTeXEnvironment :: GenParser Char st Block rawLaTeXEnvironment = try (do |