From c99ecf6cc566a90eef1816eb5a1a1167b81ad9ac Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 4 Apr 2014 21:33:16 -0700 Subject: DocBook reader: set "author" not "authors". --- src/Text/Pandoc/Readers/DocBook.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Text/Pandoc/Readers') diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs index 76bc7374f..279f1e7f8 100644 --- a/src/Text/Pandoc/Readers/DocBook.hs +++ b/src/Text/Pandoc/Readers/DocBook.hs @@ -576,8 +576,8 @@ addMeta :: ToMetaValue a => String -> a -> DB () addMeta field val = modify (setMeta field val) instance HasMeta DBState where - setMeta str v s = s {dbMeta = setMeta str v (dbMeta s)} - + setMeta field v s = s {dbMeta = setMeta field v (dbMeta s)} + deleteMeta field s = s {dbMeta = deleteMeta field (dbMeta s)} isBlockElement :: Content -> Bool isBlockElement (Elem e) = qName (elName e) `elem` blocktags @@ -789,7 +789,7 @@ parseBlock (Elem e) = Nothing -> return mempty addMeta "title" (tit <> subtit) - getAuthor = (:[]) <$> getInlines e >>= addMeta "authors" + getAuthor = (:[]) <$> getInlines e >>= addMeta "author" getAuthorGroup = do let terms = filterChildren (named "author") e mapM getInlines terms >>= addMeta "authors" -- cgit v1.2.3