diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2014-07-26 23:32:13 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2014-07-26 23:32:13 -0700 |
| commit | b104db4fb4b738fd135e5e782424c25342b30d22 (patch) | |
| tree | 9a895b1a62a8c67187c642c69986552b1f4077a9 /src/Text/Pandoc/Writers/Docx.hs | |
| parent | 2610de0159cb73948d8972a59bbdcbb8ebc6f468 (diff) | |
| download | pandoc-b104db4fb4b738fd135e5e782424c25342b30d22.tar.gz | |
Docx writer: Added missing case from last commit.
Diffstat (limited to 'src/Text/Pandoc/Writers/Docx.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index 3d9586348..8629becff 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -484,7 +484,7 @@ writeOpenXML opts (Pandoc meta blocks) = do let abstract' = case lookupMeta "abstract" meta of Just (MetaBlocks bs) -> bs Just (MetaInlines ils) -> [Plain ils] - Nothing -> [] + _ -> [] title <- withParaProp (pStyle "Title") $ blocksToOpenXML opts [Para tit | not (null tit)] authors <- withParaProp (pStyle "Authors") $ blocksToOpenXML opts [Para (intercalate [LineBreak] auths) | not (null auths)] |