diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-02-04 22:51:51 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-02-04 22:51:51 +0100 |
| commit | 63b568f445513a570121f93ef7ca0ed1cfd924d6 (patch) | |
| tree | 4d85de7dc4c1f6c2794398fd5522685a22602007 /src/Text/Pandoc/Writers/EPUB.hs | |
| parent | 67f4360fb8b7dbadf8581a8a9a6f133654f91bab (diff) | |
Changed writerEpubMetadata to a Maybe String.
API change.
Diffstat (limited to 'src/Text/Pandoc/Writers/EPUB.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/EPUB.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs index d21f7bea1..7e9a20a0c 100644 --- a/src/Text/Pandoc/Writers/EPUB.hs +++ b/src/Text/Pandoc/Writers/EPUB.hs @@ -150,7 +150,7 @@ removeNote x = x getEPUBMetadata :: PandocMonad m => WriterOptions -> Meta -> E m EPUBMetadata getEPUBMetadata opts meta = do let md = metadataFromMeta opts meta - let elts = onlyElems $ parseXML $ writerEpubMetadata opts + let elts = maybe [] (onlyElems . parseXML) $ writerEpubMetadata opts let md' = foldr addMetadataFromXML md elts let addIdentifier m = if null (epubIdentifier m) |