DocBook reader: set metadata "author" not "authors"
commite06aa97bb93cab5ddeadca5b65e45649663e527c
authorJohn MacFarlane <fiddlosopher@gmail.com>
dateFri 4 Apr 2014, 21:39 (13 years ago)
parentc5a0c7a
src/Text/Pandoc/Readers/DocBook.hs+1−1
@@ -792,7 +792,7 @@ parseBlock (Elem e) =
792792 getAuthor = (:[]) <$> getInlines e >>= addMeta "author"
793793 getAuthorGroup = do
794794 let terms = filterChildren (named "author") e
795− mapM getInlines terms >>= addMeta "authors"
795+ mapM getInlines terms >>= addMeta "author"
796796 getDate = getInlines e >>= addMeta "date"
797797 parseTable = do
798798 let isCaption x = named "title" x || named "caption" x