diff options
| author | John MacFarlane <[email protected]> | 2025-10-27 22:25:18 +0100 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2025-10-27 22:25:18 +0100 |
| commit | 5ba0dbe976657b3dbb8890ce7cd71a2f454948c1 (patch) | |
| tree | 838b234f673dcf034b07ea5a66dbda553af63b2d /src | |
| parent | d4d69fafb9bc8034cd39e99dbe48b2545eba2d3f (diff) | |
Djot reader: add Space elements.
Previously we just got big Str elements with spaces included.
But many pandoc writers assume that breakable spaces will be
Space elements. So, we got odd results with e.g. jira output.
Closes #11250.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/Djot.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Djot.hs b/src/Text/Pandoc/Readers/Djot.hs index 7bf360172..ecfe3e2c1 100644 --- a/src/Text/Pandoc/Readers/Djot.hs +++ b/src/Text/Pandoc/Readers/Djot.hs @@ -186,7 +186,7 @@ convertInlines = fmap mconcat . mapM convertInline . F.toList . D.unMany convertInline :: PandocMonad m => D.Node D.Inline -> ReaderT Env m Inlines convertInline (D.Node pos attr il) = addAttrToInline pos attr <$> case il of - D.Str bs -> pure $ str (UTF8.toText bs) + D.Str bs -> pure $ text (UTF8.toText bs) D.Emph ils -> emph <$> convertInlines ils D.Strong ils -> strong <$> convertInlines ils D.Highlight ils -> spanWith ("",["mark"],[]) <$> convertInlines ils |