Removed followedBy' parser from Text/ParserCombinators/Pandoc,

replacing it with the 'lookAhead' parser from
Text/ParserCombinators/Parsec.


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

1 files changed, 5 insertions, 5 deletions

diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index afd0056ab..a94a0a06e 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -394,7 +394,7 @@ rawListItem start = try (do
 -- or (in compact lists) endline.
 -- note: nested lists are parsed as continuations
 listContinuation start = try (do
-  followedBy' indentSpaces
+  lookAhead indentSpaces
   result <- many1 (listContinuationLine start)
   blanks <- many blankline
   return ((concat result) ++ blanks))
@@ -443,10 +443,10 @@ para = try (do
   newline
   st <- getState
   if stateStrict st
-     then choice [followedBy' blockQuote, followedBy' header, 
-                  (do{blanklines; return ()})]
-     else choice [followedBy' emacsBoxQuote, 
-                  (do{blanklines; return ()})]
+     then choice [lookAhead blockQuote, lookAhead header, 
+                  (do{blanklines; return Null})]
+     else choice [(do{lookAhead emacsBoxQuote; return Null}), 
+                  (do{blanklines; return Null})]
   let result' = normalizeSpaces result
   return (Para result'))