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: 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(-)

(limited to 'src/Text')

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
-- 
cgit v1.2.3