+ Added some needed "try"s before multicharacter parsers,

  especially in "option" contexts.
+ Removed the "try" from the "end" parser in "enclosed"
  (Text.Pandoc.Shared).  Now "enclosed" behaves like
  "option", "manyTill", etc.


git-svn-id: https://pandoc.googlecode.com/svn/trunk@527 788f1e2b-df1e-0410-8736-df70ead52e1b

3 files changed, 7 insertions, 7 deletions

diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index c152cc336..150b7cb6f 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -131,7 +131,7 @@ parseLaTeX = do
   option () processLaTeXPreamble -- preamble might not be present (fragment)
   blocks <- parseBlocks
   spaces
-  option "" (string "\\end{document}") -- might not be present (in fragment)
+  option "" (try (string "\\end{document}")) -- might not be present (in fragment)
   spaces
   eof
   state <- getState
@@ -540,7 +540,7 @@ doubleQuoteEnd = try (string "''")
 
 ellipses = try (do
   string "\\ldots"
-  option "" (string "{}")
+  option "" (try (string "{}"))
   return Ellipses)
 
 enDash = try (do
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index a7456426f..afd0056ab 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -729,10 +729,10 @@ emph = do
   return (Emph (normalizeSpaces result))
 
 strong = do
-  result <- choice [ (enclosed (count 2 (char emphStart)) 
-                               (count 2 (char emphEnd)) inline), 
-                     (enclosed (count 2 (char emphStartAlt)) 
-                               (count 2 (char emphEndAlt)) inline) ]
+  result <- choice [ (enclosed (try (count 2 (char emphStart))) 
+                               (try (count 2 (char emphEnd))) inline), 
+                     (enclosed (try (count 2 (char emphStartAlt))) 
+                               (try (count 2 (char emphEndAlt))) inline) ]
   return (Strong (normalizeSpaces result))
 
 smartPunctuation = do
diff --git a/src/Text/Pandoc/Readers/RST.hs b/src/Text/Pandoc/Readers/RST.hs
index a0bcc822f..2391fa497 100644
--- a/src/Text/Pandoc/Readers/RST.hs
+++ b/src/Text/Pandoc/Readers/RST.hs
@@ -567,7 +567,7 @@ emph = do
   return (Emph (normalizeSpaces result))
 
 strong = do
-  result <- enclosed (string "**") (string "**") inline
+  result <- enclosed (try (string "**")) (try (string "**")) inline
   return (Strong (normalizeSpaces result))
 
 whitespace = do