diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2023-02-09 20:02:39 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2023-02-09 20:02:39 -0800 |
| commit | 6c934abe6dd6022dbe15e2742dc030ccabd72dff (patch) | |
| tree | 70e28f899fa2a71204f2dd3216f05345c14c1d8c /src | |
| parent | 6f83099f6ef1891a709147e803352262ef00a9f2 (diff) | |
Citeproc: Fix bug in metaValueToReference.
This bug caused us to get some repeated content when converting
MetaBlock to Inlines. Closes #8611.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Citeproc/MetaValue.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Citeproc/MetaValue.hs b/src/Text/Pandoc/Citeproc/MetaValue.hs index ce7b1285c..d049674d6 100644 --- a/src/Text/Pandoc/Citeproc/MetaValue.hs +++ b/src/Text/Pandoc/Citeproc/MetaValue.hs @@ -9,8 +9,7 @@ where import Citeproc.Types import Text.Pandoc.Definition import Text.Pandoc.Builder as B -import Text.Pandoc.Walk (query) -import Text.Pandoc.Shared (stringify) +import Text.Pandoc.Shared (stringify, blocksToInlines') import Data.Maybe import Safe import qualified Data.Set as Set @@ -126,7 +125,7 @@ metaValueToVal k v case v of MetaString t -> TextVal t MetaInlines ils -> FancyVal (B.fromList ils) - MetaBlocks bs -> FancyVal (B.fromList $ query id bs) + MetaBlocks bs -> FancyVal (blocksToInlines' bs) MetaBool b -> TextVal (if b then "true" else "false") MetaList _ -> TextVal mempty MetaMap _ -> TextVal mempty |