diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2011-11-17 00:52:45 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2011-11-17 00:52:45 -0800 |
| commit | b7cbd42d071a296220b3a08a1b2ea333150ca198 (patch) | |
| tree | 1e6f258a6ab5c992630cf08ad5332b43bcfc4759 /src/Text | |
| parent | fed260439e6f8ed57dd3b2a3aedd5b5ccbd968a6 (diff) | |
| download | pandoc-b7cbd42d071a296220b3a08a1b2ea333150ca198.tar.gz | |
Use attributes for author/date.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Writers/Asciidoc.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Asciidoc.hs b/src/Text/Pandoc/Writers/Asciidoc.hs index c8319764a..53b607cfc 100644 --- a/src/Text/Pandoc/Writers/Asciidoc.hs +++ b/src/Text/Pandoc/Writers/Asciidoc.hs @@ -52,7 +52,7 @@ pandocToAsciidoc :: WriterOptions -> Pandoc -> State WriterState String pandocToAsciidoc opts (Pandoc (Meta title authors date) blocks) = do title' <- inlineListToAsciidoc opts title let title'' = title' $$ text (replicate (offset title') '=') - authors' <- take 1 `fmap` mapM (inlineListToAsciidoc opts) authors + authors' <- mapM (inlineListToAsciidoc opts) authors -- asciidoc only allows a singel author date' <- inlineListToAsciidoc opts date let titleblock = not $ null title && null authors && null date |