diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2014-04-04 21:33:16 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2014-04-04 21:33:16 -0700 |
| commit | c99ecf6cc566a90eef1816eb5a1a1167b81ad9ac (patch) | |
| tree | 0862fa3368762d678550b65979bc78b1a7a944a1 /src/Text/Pandoc | |
| parent | 1b930a9670403f9c6ceadbc067fb3ac7400bd042 (diff) | |
| download | pandoc-c99ecf6cc566a90eef1816eb5a1a1167b81ad9ac.tar.gz | |
DocBook reader: set "author" not "authors".
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/DocBook.hs | 6 |
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" |