Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Markdown reader: add some strictness.

Browse source 
This improves some benchmarks significantly.
This commit is contained in:
John MacFarlane 2022-03-31 10:08:44 -07:00
parent ad726953b9
commit 8b21ec7d0c
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/Text/Pandoc/Readers/Markdown.hs
View file

@ -1,4 +1,5 @@
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE TupleSections #-}
{-# LANGUAGE OverloadedStrings #-}
@ -1724,7 +1725,7 @@ nonEndline = satisfy (/='\n')
str :: PandocMonad m => MarkdownParser m (F Inlines)
str = do
result <- mconcat <$> many1
!result <- mconcat <$> many1
( T.pack <$> (many1 alphaNum)
<|> "." <$ try (char '.' <* notFollowedBy (char '.')) )
updateLastStrPos
@ -1740,11 +1741,11 @@ str = do
ils' <- ils
case B.toList ils' of
[Space] ->
return (B.str result <> B.str "\160")
_ -> return (B.str result <> ils'))
<|> return (return (B.str result))
else return (return (B.str result)))
<|> return (return (B.str result))
return $! (B.str result <> B.str "\160")
_ -> return $! (B.str result <> ils'))
<|> return (return $! B.str result)
else return (return $! B.str result))
<|> return (return $! B.str result)
-- an endline character that can be treated as a space, not a structural break
endline :: PandocMonad m => MarkdownParser m (F Inlines)