@@ -642,7 +642,7 @@ bodyPartToBlocks (ListItem pPr _ _ _ parparts) =
642 bodyPartToBlocks $ Paragraph pPr' parparts
642 bodyPartToBlocks $ Paragraph pPr' parparts
643bodyPartToBlocks (Tbl _ _ _ []) =
643bodyPartToBlocks (Tbl _ _ _ []) =
644 return $ para mempty
644 return $ para mempty
645−bodyPartToBlocks (Tbl cap _ look (r:rs)) = do
645+bodyPartToBlocks (Tbl cap _ look parts@(r:rs)) = do
646 let caption = text cap
646 let caption = text cap
647 (hdr, rows) = case firstRowFormatting look of
647 (hdr, rows) = case firstRowFormatting look of
648 True | null rs -> (Nothing, [r])
648 True | null rs -> (Nothing, [r])
@@ -651,10 +651,14 @@ bodyPartToBlocks (Tbl cap _ look (r:rs)) = do
652 cells <- mapM rowToBlocksList rows
652 cells <- mapM rowToBlocksList rows
654− let width = case cells of
654+ let width = maybe 0 maximum $ nonEmpty $ map rowLength parts
655− r':_ -> length r'
655+ -- Data.List.NonEmpty is not available with ghc 7.10 so we roll out
656− -- shouldn't happen
656+ -- our own, see
657− [] -> 0
657+ -- https://github.com/jgm/pandoc/pull/4361#issuecomment-365416155
658+ nonEmpty [] = Nothing
660+ rowLength :: Row -> Int
661+ rowLength (Row c) = length c
659 hdrCells <- case hdr of
663 hdrCells <- case hdr of
660 Just r' -> rowToBlocksList r'
664 Just r' -> rowToBlocksList r'