Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Docx writer: Added missing case from last commit.

Browse source
This commit is contained in:
John MacFarlane 2014-07-26 23:32:13 -07:00
parent 2610de0159
commit b104db4fb4
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Text/Pandoc/Writers/Docx.hs
View file

@ -484,7 +484,7 @@ writeOpenXML opts (Pandoc meta blocks) = do
let abstract' = case lookupMeta "abstract" meta of let abstract' = case lookupMeta "abstract" meta of
Just (MetaBlocks bs) -> bs Just (MetaBlocks bs) -> bs
Just (MetaInlines ils) -> [Plain ils] Just (MetaInlines ils) -> [Plain ils]
Nothing -> [] _ -> []
title <- withParaProp (pStyle "Title") $ blocksToOpenXML opts [Para tit | not (null tit)] title <- withParaProp (pStyle "Title") $ blocksToOpenXML opts [Para tit | not (null tit)]
authors <- withParaProp (pStyle "Authors") $ blocksToOpenXML opts authors <- withParaProp (pStyle "Authors") $ blocksToOpenXML opts
[Para (intercalate [LineBreak] auths) | not (null auths)] [Para (intercalate [LineBreak] auths) | not (null auths)]