@@ -686,14 +686,14 @@ museToPandocTable (MuseTable caption headers body footers) =
686686 headRow = if null headers then [] else head headers
687687 rows = (if null headers then [] else tail headers) ++ body ++ footers
688688
689−museAppendElement :: MuseTable
690− -> MuseTableElement
689+museAppendElement :: MuseTableElement
691690 -> MuseTable
692−museAppendElement tbl element =
691+ -> MuseTable
692+museAppendElement element tbl =
693693 case element of
694− MuseHeaderRow row -> tbl{ museTableHeaders = museTableHeaders tbl ++ [row] }
695− MuseBodyRow row -> tbl{ museTableRows = museTableRows tbl ++ [row] }
696− MuseFooterRow row -> tbl{ museTableFooters = museTableFooters tbl ++ [row] }
694+ MuseHeaderRow row -> tbl{ museTableHeaders = row : museTableHeaders tbl }
695+ MuseBodyRow row -> tbl{ museTableRows = row : museTableRows tbl }
696+ MuseFooterRow row -> tbl{ museTableFooters = row : museTableFooters tbl }
697697 MuseCaption inlines -> tbl{ museTableCaption = inlines }
698698
699699tableCell :: PandocMonad m => MuseParser m (F Blocks)
@@ -704,7 +704,7 @@ tableElements :: PandocMonad m => MuseParser m (F [MuseTableElement])
704704tableElements = sequence <$> (tableParseElement `sepEndBy1` eol)
705705
706706elementsToTable :: [MuseTableElement] -> MuseTable
707−elementsToTable = foldl museAppendElement emptyTable
707+elementsToTable = foldr museAppendElement emptyTable
708708 where emptyTable = MuseTable mempty mempty mempty mempty
709709
710710-- | Parse a table.