diff options
Diffstat (limited to 'src/Text/Pandoc/Writers/GridTable.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/GridTable.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/GridTable.hs b/src/Text/Pandoc/Writers/GridTable.hs index c6f4cf456..bc468febc 100644 --- a/src/Text/Pandoc/Writers/GridTable.hs +++ b/src/Text/Pandoc/Writers/GridTable.hs @@ -87,8 +87,8 @@ toTable attr caption colSpecs thead tbodies tfoot = tbGrids = map bodyToGrid tbodies tfGrid = let (TableFoot footAttr rows) = tfoot in rowsToPart footAttr rows - bodyToGrid (TableBody bodyAttr _rowHeadCols _headRows rows) = - rowsToPart bodyAttr rows + bodyToGrid (TableBody bodyAttr _rowHeadCols headRows rows) = + rowsToPart bodyAttr (headRows ++ rows) data BuilderCell = FilledCell GridCell |