RIS reader: get right order of names.

Closes jgm#8055.

Author: jgm

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) }

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",