diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-02-05 14:05:30 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-02-05 14:05:30 -0800 |
| commit | eed87d77553864066bcb545645df8e999d64fbeb (patch) | |
| tree | 786ccf870deac19577181d4bf75bcc752355d0c9 /src/Text/Pandoc/Writers | |
| parent | 6cb7c688d8480d94ba4c1c85a1506e963a268d9e (diff) | |
| download | pandoc-eed87d77553864066bcb545645df8e999d64fbeb.tar.gz | |
Normalize date in EPUB metadata.
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -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 1242b948f..67048348e 100644 --- a/src/Text/Pandoc/Writers/EPUB.hs +++ b/src/Text/Pandoc/Writers/EPUB.hs @@ -152,7 +152,7 @@ writeEPUB mbStylesheet fonts opts doc@(Pandoc meta _) = do Pandoc meta [Plain t] let plainTitle = plainify $ docTitle meta let plainAuthors = map plainify $ docAuthors meta - let plainDate = plainify $ docDate meta + let plainDate = maybe "" id $ normalizeDate $ stringify $ docDate meta let contentsData = fromString $ ppTopElement $ unode "package" ! [("version","2.0") ,("xmlns","http://www.idpf.org/2007/opf") |