diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2022-05-03 10:44:09 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2022-05-03 10:44:09 -0700 |
| commit | 0b2adf9617615c426f5a7ae0635385551a0a0688 (patch) | |
| tree | 18911cd9a4c6d02418c52385e167793cc624527d /src | |
| parent | 67daf96bdd519b1e709d6ed2534d06203967bf97 (diff) | |
RIS reader: get right order of names.
Closes #8055.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/RIS.hs | 2 |
1 files changed, 1 insertions, 1 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) } |