@@ -84,7 +84,7 @@ toJiraBlocks :: PandocMonad m => [Block] -> JiraConverter m [Jira.Block]
8484toJiraBlocks blocks = do
8585 let convert = \case
8686 BlockQuote bs -> singleton . Jira.BlockQuote
87− <$> toJiraBlocks bs -- FIXME!
87+ <$> toJiraBlocks bs
8888 BulletList items -> singleton . Jira.List Jira.CircleBullets
8989 <$> toJiraItems items
9090 CodeBlock attr cs -> toJiraCode attr cs
@@ -100,9 +100,9 @@ toJiraBlocks blocks = do
100100 RawBlock fmt cs -> rawBlockToJira fmt cs
101101 Null -> return mempty
102102 Table _ _ _ hd body -> singleton <$> do
103− headerRow <- if null hd
104− then Just <$> toRow Jira.HeaderCell hd
105− else pure Nothing
103+ headerRow <- if all null hd
104+ then pure Nothing
105+ else Just <$> toRow Jira.HeaderCell hd
106106 bodyRows <- mapM (toRow Jira.BodyCell) body
107107 let rows = case headerRow of
108108 Just header -> header : bodyRows