@@ -792,7 +792,7 @@ parseBlock (Elem e) =
792 getAuthor = (:[]) <$> getInlines e >>= addMeta "author"
792 getAuthor = (:[]) <$> getInlines e >>= addMeta "author"
793 getAuthorGroup = do
793 getAuthorGroup = do
794 let terms = filterChildren (named "author") e
794 let terms = filterChildren (named "author") e
795− mapM getInlines terms >>= addMeta "authors"
795+ mapM getInlines terms >>= addMeta "author"
796 getDate = getInlines e >>= addMeta "date"
796 getDate = getInlines e >>= addMeta "date"
797 parseTable = do
797 parseTable = do
798 let isCaption x = named "title" x || named "caption" x
798 let isCaption x = named "title" x || named "caption" x