diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2023-06-28 18:35:40 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2023-06-28 18:35:40 -0700 |
| commit | 8764027cbba74762fd86b2c6a370abe7f580129a (patch) | |
| tree | c60761af7aed3c11042d5afee0398adcfee94a04 /src/Text | |
| parent | 1bc84bf100c288dd29040138619f6313cbcbef92 (diff) | |
Markdown reader: add strictness annotations.
This fixes the memory leak noted in #8762.
Closes #8762.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 6038ecab1..0d124ae23 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -1908,10 +1908,10 @@ regLink :: PandocMonad m -> F Inlines -> MarkdownParser m (F Inlines) regLink constructor lab = try $ do - (src, tit) <- source + (!src, !tit) <- source rebase <- option False (True <$ guardEnabled Ext_rebase_relative_paths) pos <- getPosition - let src' = if rebase then rebasePath pos src else src + let !src' = if rebase then rebasePath pos src else src attr <- option nullAttr $ guardEnabled Ext_link_attributes >> attributes return $ constructor attr src' tit <$> lab |