aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2014-04-04 21:33:16 -0700
committerJohn MacFarlane <fiddlosopher@gmail.com>2014-04-04 21:33:16 -0700
commitc99ecf6cc566a90eef1816eb5a1a1167b81ad9ac (patch)
tree0862fa3368762d678550b65979bc78b1a7a944a1 /src/Text/Pandoc
parent1b930a9670403f9c6ceadbc067fb3ac7400bd042 (diff)
downloadpandoc-c99ecf6cc566a90eef1816eb5a1a1167b81ad9ac.tar.gz
DocBook reader: set "author" not "authors".
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/DocBook.hs6
1 files changed, 3 insertions, 3 deletions
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"