DocAppend
  (DocParagraph (DocString "Single outer cell:"))
  (DocAppend
     (DocTable
        Table
          {tableBodyRows = [TableRow
                              [TableCell
                                 {tableCellColspan = 1,
                                  tableCellContents = DocString
                                                        (concat
                                                           ["outer\n",
                                                            "\n",
                                                            "-------+\n",
                                                            "inner |"]),
                                  tableCellRowspan = 1}]],
           tableHeaderRows = []})
     (DocAppend
        (DocParagraph (DocString "Broken (only inner cell is rendered):"))
        (DocTable
           Table
             {tableBodyRows = [TableRow
                                 [TableCell
                                    {tableCellColspan = 1,
                                     tableCellContents = DocString "inner",
                                     tableCellRowspan = 1}]],
              tableHeaderRows = []})))