From 0b2adf9617615c426f5a7ae0635385551a0a0688 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Tue, 3 May 2022 10:44:09 -0700
Subject: [PATCH] RIS reader: get right order of names.
Closes #8055.
---
src/Text/Pandoc/Readers/RIS.hs | 2 +-
test/command/7894.md | 8 ++++----
2 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/src/Text/Pandoc/Readers/RIS.hs b/src/Text/Pandoc/Readers/RIS.hs
index 18ac60959..f73df8135 100644
--- a/src/Text/Pandoc/Readers/RIS.hs
+++ b/src/Text/Pandoc/Readers/RIS.hs
@@ -142,7 +142,7 @@ risRecordToReference keys = addId $ foldr go defref keys
addName k v r =
let new = toName [] . B.toList . B.text $ v
f Nothing = Just (NamesVal new)
- f (Just (NamesVal ns)) = Just (NamesVal (ns ++ new))
+ f (Just (NamesVal ns)) = Just (NamesVal (new ++ ns))
f (Just x) = Just x
in r{ referenceVariables =
M.alter f k (referenceVariables r) }
diff --git a/test/command/7894.md b/test/command/7894.md
index 66c90bc9c..62134ffcb 100644
--- a/test/command/7894.md
+++ b/test/command/7894.md
@@ -38,13 +38,13 @@ ER -
[
{
"author": [
- {
- "family": "Keisler",
- "given": "H. Jerome"
- },
{
"family": "Chang",
"given": "C. C."
+ },
+ {
+ "family": "Keisler",
+ "given": "H. Jerome"
}
],
"edition": "3",