From 75dbe3248e1eb4eb89d3860acdfcea5bfe54525c Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Sun, 17 Dec 2006 18:41:26 +0000
Subject: [PATCH] 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
---
src/Text/Pandoc/Readers/LaTeX.hs | 12 ++++++------
1 file 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