summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2006-12-17 18:41:26 +0000
committerfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2006-12-17 18:41:26 +0000
commit75dbe3248e1eb4eb89d3860acdfcea5bfe54525c (patch)
treed182a0845517a97687f3964d6c1d69d43e3083b0 /src
parent7c319e55ff641b57688297c5e67169ec316235b1 (diff)
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')
-rw-r--r--src/Text/Pandoc/Readers/LaTeX.hs12
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