@@ -14,7 +14,7 @@ import Text.Pandoc.Walk (walk, query)
1414import Text.Pandoc.Generic(bottomUp)
1515import Text.Pandoc.Readers.HTML (readHtml)
1616import Text.Pandoc.Options ( ReaderOptions(..), readerTrace)
17−import Text.Pandoc.Shared (escapeURI, collapseFilePath)
17+import Text.Pandoc.Shared (escapeURI, collapseFilePath, addMetaField)
1818import Text.Pandoc.MediaBag (MediaBag, insertMedia)
1919import Text.Pandoc.Compat.Except (MonadError, throwError, runExcept, Except)
2020import qualified Text.Pandoc.Builder as B
@@ -155,7 +155,7 @@ parseMeta content = do
155155-- http://www.idpf.org/epub/30/spec/epub30-publications.html#sec-metadata-elem
156156parseMetaItem :: Element -> Meta -> Meta
157157parseMetaItem e@(stripNamespace . elName -> field) meta =
158− B.setMeta (renameMeta field) (B.str $ strContent e) meta
158+ addMetaField (renameMeta field) (B.str $ strContent e) meta
159159
160160renameMeta :: String -> String
161161renameMeta "creator" = "author"