diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2020-01-07 20:45:10 +0100 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2020-01-07 22:11:51 +0100 |
| commit | bef0133fe044350caeee24cdf79203a9306534da (patch) | |
| tree | b1cac53bfb8c733573c447391a66603bfe74b52b /src/Text | |
| parent | ad5f7ecfcec86bb8b661d286aec5f396556b759e (diff) | |
| download | pandoc-bef0133fe044350caeee24cdf79203a9306534da.tar.gz | |
Jira writer: fix output of table headers
Headers were missing from tables.
Fixes: #6035
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Writers/Jira.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Writers/Jira.hs b/src/Text/Pandoc/Writers/Jira.hs index ccb0ff187..74e204418 100644 --- a/src/Text/Pandoc/Writers/Jira.hs +++ b/src/Text/Pandoc/Writers/Jira.hs @@ -84,7 +84,7 @@ toJiraBlocks :: PandocMonad m => [Block] -> JiraConverter m [Jira.Block] toJiraBlocks blocks = do let convert = \case BlockQuote bs -> singleton . Jira.BlockQuote - <$> toJiraBlocks bs -- FIXME! + <$> toJiraBlocks bs BulletList items -> singleton . Jira.List Jira.CircleBullets <$> toJiraItems items CodeBlock attr cs -> toJiraCode attr cs @@ -100,9 +100,9 @@ toJiraBlocks blocks = do RawBlock fmt cs -> rawBlockToJira fmt cs Null -> return mempty Table _ _ _ hd body -> singleton <$> do - headerRow <- if null hd - then Just <$> toRow Jira.HeaderCell hd - else pure Nothing + headerRow <- if all null hd + then pure Nothing + else Just <$> toRow Jira.HeaderCell hd bodyRows <- mapM (toRow Jira.BodyCell) body let rows = case headerRow of Just header -> header : bodyRows |