Removed some needless lookaheads in Markdown reader.

This commit is contained in:
John MacFarlane 2019-08-14 11:43:08 -07:00
parent eb23527121
commit e85178c32a

View file

@ -1138,7 +1138,6 @@ rawVerbatimBlock = htmlInBalanced isVerbTag
rawTeXBlock :: PandocMonad m => MarkdownParser m (F Blocks)
rawTeXBlock = do
guardEnabled Ext_raw_tex
lookAhead $ try $ char '\\' >> letter
result <- (B.rawBlock "tex" . trim . concat <$>
many1 ((++) <$> rawConTeXtEnvironment <*> spnl'))
<|> (B.rawBlock "tex" . trim . concat <$>
@ -1929,7 +1928,6 @@ inlineNote = try $ do
rawLaTeXInline' :: PandocMonad m => MarkdownParser m (F Inlines)
rawLaTeXInline' = try $ do
guardEnabled Ext_raw_tex
lookAhead $ try $ char '\\' >> letter
notFollowedBy' rawConTeXtEnvironment
s <- rawLaTeXInline
return $ return $ B.rawInline "tex" s -- "tex" because it might be context