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