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