diff options
Diffstat (limited to 'src')
| -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 |