c6df281 · typeable/pandoc

686 headRow = if null headers then [] else head headers

687 rows = (if null headers then [] else tail headers) ++ body ++ footers

688

689−museAppendElement :: MuseTable

690− -> MuseTableElement

689+museAppendElement :: MuseTableElement

691 -> MuseTable

690 -> MuseTable

691+ -> MuseTable

692−museAppendElement tbl element =

692+museAppendElement element tbl =

693 case element of

694− MuseHeaderRow row -> tbl{ museTableHeaders = museTableHeaders tbl ++ [row] }

694+ MuseHeaderRow row -> tbl{ museTableHeaders = row : museTableHeaders tbl }

695− MuseBodyRow row -> tbl{ museTableRows = museTableRows tbl ++ [row] }

695+ MuseBodyRow row -> tbl{ museTableRows = row : museTableRows tbl }

696− MuseFooterRow row -> tbl{ museTableFooters = museTableFooters tbl ++ [row] }

696+ MuseFooterRow row -> tbl{ museTableFooters = row : museTableFooters tbl }

697 MuseCaption inlines -> tbl{ museTableCaption = inlines }

698

699tableCell :: PandocMonad m => MuseParser m (F Blocks)

704tableElements = sequence <$> (tableParseElement `sepEndBy1` eol)

705

706elementsToTable :: [MuseTableElement] -> MuseTable

707−elementsToTable = foldl museAppendElement emptyTable

707+elementsToTable = foldr museAppendElement emptyTable

708 where emptyTable = MuseTable mempty mempty mempty mempty

709

710-- | Parse a table.